Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

named let evaluates the initial bindings outside the scope of the loop

Browse source 
(fixes 8.2 in r5rs_pitfalls.scm)
This commit is contained in:
Alex Shinn 2010-05-15 13:07:01 +09:00
parent f8a3296372
commit 14c4d0b57d
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lib/init.scm
View file

@ -219,13 +219,17 @@
(if (every (lambda (x) (if (every (lambda (x)
(if (pair? x) (if (pair? (cdr x)) (null? (cddr x)) #f) #f)) (if (pair? x) (if (pair? (cdr x)) (null? (cddr x)) #f) #f))
bindings) bindings)
(if (identifier? (cadr expr)) ((lambda (vars vals)
`(,(rename 'letrec) ((,(cadr expr) (if (identifier? (cadr expr))
(,(rename 'lambda) ,(map car bindings) `((,(rename 'lambda) ,vars
,@(cdddr expr)))) (,(rename 'letrec) ((,(cadr expr)
,(cons (cadr expr) (map cadr bindings))) (,(rename 'lambda) ,vars
`((,(rename 'lambda) ,(map car bindings) ,@(cddr expr)) ,@(cdddr expr))))
,@(map cadr bindings))) (,(cadr expr) ,@vars)))
,@vals)
`((,(rename 'lambda) ,vars ,@(cddr expr)) ,@vals)))
(map car bindings)
(map cadr bindings))
(error "bad let syntax" expr))) (error "bad let syntax" expr)))
(if (identifier? (cadr expr)) (caddr expr) (cadr expr)))))) (if (identifier? (cadr expr)) (caddr expr) (cadr expr))))))