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