artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

cleanup let, let*, letrec

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-16 17:57:19 +02:00
parent dc8325ded3
commit b638d33e4b
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scm.mes
View file

@ -63,17 +63,15 @@
(append values (cdar bindings) '())))))
(define-macro (let bindings . body)
(cons (cons 'lambda (cons (split-params bindings '()) body))
(split-values bindings '())))
`((lambda ,(split-params bindings '()) ,@body)
,@(split-values bindings '())))
(define (expand-let* bindings body)
(cond ((null? bindings)
(cons (cons 'lambda (cons '() body)) '()))
(#t
(cons
(cons 'lambda (cons (cons (caar bindings) '())
(cons (expand-let* (cdr bindings) body) '())))
(cdar bindings)))))
`((lambda () ,@body)))
(#t `((lambda (,(caar bindings))
,(expand-let* (cdr bindings) body))
,@(cdar bindings)))))
(define-macro (let* bindings . body)
(expand-let* bindings body))
@ -110,7 +108,7 @@
(cons (cons 'set! (car bindings)) '()))))))
(define-macro (letrec bindings . body)
(cons 'let (cons (unspecified-bindings bindings '())
(append (letrec-setters bindings '())
body))) )
`(let ,(unspecified-bindings bindings '())
,@(letrec-setters bindings '())
,@body))