gensym fixes

[Dale P. Smith]

There are a few places where gensym is applied to a string (oooh, that
almost sounds like I know scheme!)  Here is a patch.

address@hidden:~/src/guile/guile-core/ice-9$ cvs diff -u
cvs server: Diffing .
Index: boot-9.scm
===================================================================
RCS file: /cvs/guile/guile-core/ice-9/boot-9.scm,v
retrieving revision 1.214
diff -u -r1.214 boot-9.scm
--- boot-9.scm  2000/09/03 20:20:19     1.214
+++ boot-9.scm  2000/09/10 22:47:12
@@ -2189,7 +2189,7 @@
    (#t e)))
 
 (define (gentemp)
-  (gensym "scm:G"))
+  (gensym 'scm:G))
 
 (provide 'defmacro)
 
Index: optargs.scm
===================================================================
RCS file: /cvs/guile/guile-core/ice-9/optargs.scm,v
retrieving revision 1.7
diff -u -r1.7 optargs.scm
--- optargs.scm 2000/08/19 13:37:55     1.7
+++ optargs.scm 2000/09/10 22:47:15
@@ -153,7 +153,7 @@
 (define (let-keywords-template REST-ARG ALLOW-OTHER-KEYS? BINDINGS BODY
let-type)
     (if (null? BINDINGS)
        `(begin ,@BODY)
-       (let* ((kb-list-gensym (gensym "kb:G"))
+       (let* ((kb-list-gensym (gensym 'kb:G))
               (bindfilter (lambda (key)
                             `(,(car key)
                               (cond
@@ -272,7 +272,7 @@
      (if (not (or (symbol? rest-arg) (eq? #f rest-arg)))
         (error "Syntax error in rest argument declaration."))
      ;; generate the code.
-     (let ((rest-gensym (or rest-arg (gensym "lambda*:G"))))
+     (let ((rest-gensym (or rest-arg (gensym 'lambda*:G))))
        (if (not (and (null? optionals) (null? keys)))
           `(lambda (,@non-optional-args . ,rest-gensym)
              ;; Make sure that if the proc had a docstring, we put it


-- 
Dale P. Smith
Altus Technologies Corp.
address@hidden
400-746-9000 x309