collect-key now returns a gensym

2007-09-01 16:09:56 -04:00 · 2007-09-01 16:09:56 -04:00 · 4b7f3a0258
parent 77b3fd5225
commit 4b7f3a0258
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.collect.ss
+++ b/src/ikarus.collect.ss
@ -41,7 +41,7 @@
 (define (collect-key)
  (or ($collect-key) 
      (begin
-        ($collect-key (string #\k))
+        ($collect-key (gensym))
        (collect-key))))

 )