* utils-cgen.scm (parse-name): Don't assume that string-map can be

applied to symbols.  Process everything as strings, and then
convert to a symbol at the end.

diff --git a/ChangeLog b/ChangeLog
index 7db756c6c03deac81c7f21c85700112c3385ce2d..93e6bfb7fe20306dc097a070f516b3e5c8138a2f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-12-16  Jim Blandy  <jimb@redhat.com>
 
+       * utils-cgen.scm (parse-name): Don't assume that string-map can be
+       applied to symbols.  Process everything as strings, and then
+       convert to a symbol at the end.
+
        * read.scm (debug-repl): Temporarily redirect input and output to
        /dev/tty while we debug, so we don't interfere with whatever CGEN
        is reading or writing.

diff --git a/utils-cgen.scm b/utils-cgen.scm
index de24102b17821bffa36ea5c9afe9fd88453fe9f6..26bf6949a1c961eb4687677d776e5c9d21d82ee3 100644 (file)
--- a/utils-cgen.scm
+++ b/utils-cgen.scm
@@ -175,11 +175,13 @@
 ; FIXME: Isn't the plan to move ERRTXT to the 1st arg?
 
 (define (parse-name name errtxt)
-  (cond ((list? name)
-        (string->symbol (string-map (lambda (elm) (parse-name elm errtxt)) name)))
-       ((symbol? name) name)
-       ((string? name) (string->symbol name))
-       (else (parse-error errtxt "improper name" name)))
+  (string->symbol
+   (let parse ((name name))
+     (cond
+      ((list? name) (string-map parse name))
+      ((symbol? name) (symbol->string name))
+      ((string? name) name)
+      (else (parse-error errtxt "improper name" name)))))
 )
 
 ; Parse an object comment.