mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

(let-values): Use gensym' instead of gentemp'.

Browse source
This commit is contained in:
Marius Vollmer 2001-12-16 21:58:24 +00:00
parent 3c468478d8
commit 7733436f7b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-11.scm
View file

@ -194,7 +194,7 @@
(define (let-values-helper vars body prev-let-vars) (define (let-values-helper vars body prev-let-vars)
(let* ((var-binding (car vars)) (let* ((var-binding (car vars))
(new-tmps (map-1-dot (lambda (sym) (gentemp)) (new-tmps (map-1-dot (lambda (sym) (gensym))
(car var-binding))) (car var-binding)))
(let-vars (map (lambda (sym tmp) (list sym tmp)) (let-vars (map (lambda (sym tmp) (list sym tmp))
(undot-list (car var-binding)) (undot-list (car var-binding))