mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 21:10:27 +02:00
* boot-9.scm (gensym): Removed (replaced by primitive).
(obarray-gensym): Rewritten to use `gensym'. (gentemp): Rewritten to use `gensym'.
This commit is contained in:
parent
d28da0496e
commit
e672f1b55a
2 changed files with 12 additions and 17 deletions
|
@ -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>
|
||||
|
||||
* gtcl.scm (make-tcl-binder): Rewritten to choose bindings
|
||||
|
|
|
@ -483,17 +483,10 @@
|
|||
(define (obarray-symbol-append ob . args)
|
||||
(string->obarray-symbol (apply string-append ob args)))
|
||||
|
||||
(define obarray-gensym
|
||||
(let ((n -1))
|
||||
(lambda (obarray . opt)
|
||||
(if (null? opt)
|
||||
(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))
|
||||
(define (obarray-gensym obarray . opt)
|
||||
(if (null? opt)
|
||||
(gensym "%%gensym" obarray)
|
||||
(gensym (car opt) obarray)))
|
||||
|
||||
|
||||
;;; {Lists}
|
||||
|
@ -2176,12 +2169,8 @@
|
|||
e)))
|
||||
(#t e)))
|
||||
|
||||
(define gentemp
|
||||
(let ((*gensym-counter* -1))
|
||||
(lambda ()
|
||||
(set! *gensym-counter* (+ *gensym-counter* 1))
|
||||
(string->symbol
|
||||
(string-append "scm:G" (number->string *gensym-counter*))))))
|
||||
(define (gentemp)
|
||||
(gensym "scm:G"))
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue