collect-key now returns a gensym

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

 )