mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

* boot-9.scm (gensym): Removed (replaced by primitive).

Browse source 
(obarray-gensym): Rewritten to use `gensym'.
(gentemp): Rewritten to use `gensym'.
This commit is contained in:
Mikael Djurfeldt 1997-09-01 22:27:58 +00:00
parent d28da0496e
commit e672f1b55a
2 changed files with 12 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
Tue Sep 2 00:26:42 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm (gensym): Removed (replaced by primitive).
(obarray-gensym): Rewritten to use `gensym'.
(gentemp): Rewritten to use `gensym'.
Mon Sep 1 20:08:32 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Mon Sep 1 20:08:32 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* gtcl.scm (make-tcl-binder): Rewritten to choose bindings * gtcl.scm (make-tcl-binder): Rewritten to choose bindings

23
ice-9/boot-9.scm
View file

@ -483,17 +483,10 @@
(define (obarray-symbol-append ob . args) (define (obarray-symbol-append ob . args)
(string->obarray-symbol (apply string-append ob args))) (string->obarray-symbol (apply string-append ob args)))
(define obarray-gensym (define (obarray-gensym obarray . opt)
(let ((n -1)) (if (null? opt)
(lambda (obarray . opt) (gensym "%%gensym" obarray)
(if (null? opt) (gensym (car opt) obarray)))
(set! opt '(%%gensym)))
(let loop ((proposed-name (apply string-append opt)))
(if (string->obarray-symbol obarray proposed-name #t)
(loop (apply string-append (append opt (begin (set! n (1+ n)) (list (number->string n))))))
(string->obarray-symbol obarray proposed-name))))))
(define (gensym . args) (apply obarray-gensym #f args))
;;; {Lists} ;;; {Lists}
@ -2176,12 +2169,8 @@
e))) e)))
(#t e))) (#t e)))
(define gentemp (define (gentemp)
(let ((*gensym-counter* -1)) (gensym "scm:G"))
(lambda ()
(set! *gensym-counter* (+ *gensym-counter* 1))
(string->symbol
(string-append "scm:G" (number->string *gensym-counter*))))))