conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add named-let

This commit is contained in:
Yuichi Nishiwaki 2013-11-14 17:31:59 +09:00
parent e68c69ceb1
commit 62069af4f9
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
piclib/built-in.scm
View File

@ -137,10 +137,24 @@
(cons (f (car list)) (cons (f (car list))
(map f (cdr list))))) (map f (cdr list)))))
;;; bootstrap
(define-macro (let bindings . body) (define-macro (let bindings . body)
(cons (cons 'lambda (cons (map car bindings) body)) (if (symbol? bindings)
(map cadr bindings))) (begin
(define name bindings)
(set! bindings (car body))
(set! body (cdr body))
;; expanded form should be like below:
;; `(let ()
;; (define ,loop
;; (lambda (,@vars)
;; ,@body))
;; (,loop ,@vals))
(list 'let '()
(list 'define name
(cons 'lambda (cons (map car bindings) body)))
(cons name (map cadr bindings))))
(cons (cons 'lambda (cons (map car bindings) body))
(map cadr bindings))))
(define-macro (cond . clauses) (define-macro (cond . clauses)
(if (null? clauses) (if (null? clauses)