Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
5 lines (4 sloc) 139 Bytes
;;; symbol generation
(define gensym (lambda (sym) sym))
(define gensym-local (lambda (sym) sym))
(define gencont (lambda () (gensym 'c)))