Author: iratqq
Date: Tue Feb 3 03:20:48 2009
New Revision: 5809
Modified:
trunk/scm/util.scm
Log:
* scm/util.scm (gensym):
- Remove let-optionals*.
Modified: trunk/scm/util.scm
==============================================================================
--- trunk/scm/util.scm (original)
+++ trunk/scm/util.scm Tue Feb 3 03:20:48 2009
@@ -202,12 +202,11 @@
(define *gensym-counter* 0)
(define gensym
(lambda args
- (let-optionals* args ((prefix "g"))
- (set! *gensym-counter* (inc *gensym-counter*))
- (let ((new (string->symbol (format "~a~X" prefix *gensym-counter*))))
- (if (symbol-bound? new)
- (gensym)
- new)))))
+ (set! *gensym-counter* (inc *gensym-counter*))
+ (let ((new (string->symbol (format "~a~X" (if (pair? args) (car
args) "g") *gensym-counter*))))
+ (if (symbol-bound? new)
+ (gensym)
+ new))))
;; TODO: write test
(define number->symbol
