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

fix scoping in let-keywords

Browse source 
* module/ice-9/optargs.scm (let-keywords): I thought that I had the
  scoping right here, but I didn't. Make sure that the lambda formals
  for the initializers are new, fresh identifiers, so that let scoping
  works appropriately.
This commit is contained in:
Andy Wingo 2009-11-14 13:26:46 +01:00
parent 4b1c3f0e06
commit e581ec7874
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/optargs.scm
View file

@ -155,12 +155,13 @@
(lambda (vars inits) (lambda (vars inits)
(with-syntax ((n (length vars)) (with-syntax ((n (length vars))
(vars vars) (vars vars)
(ivars (generate-temporaries vars))
((kw ...) (map symbol->keyword ((kw ...) (map symbol->keyword
(map syntax->datum vars))) (map syntax->datum vars)))
((idx ...) (iota (length vars))) ((idx ...) (iota (length vars)))
((t ...) (generate-temporaries vars)) ((t ...) (generate-temporaries vars))
((i ...) inits)) ((i ...) inits))
#'(let ((t (lambda vars i)) #'(let ((t (lambda ivars i))
...) ...)
(apply (lambda vars b0 b1 ...) (apply (lambda vars b0 b1 ...)
(or (parse-lambda-case '(0 0 #f n aok ((kw . idx) ...)) (or (parse-lambda-case '(0 0 #f n aok ((kw . idx) ...))