Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Attempt alternative let-values macro

Browse source
This commit is contained in:
Justin Ethier 2016-08-31 23:38:14 -04:00
parent 587d83f6b7
commit 2e5a4adcd2
1 changed files with 69 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
scheme/base.sld
View file

@ -1434,7 +1434,7 @@
(call-with-values (lambda () expr) (call-with-values (lambda () expr)
(lambda params (let*-values rest . body)))))) (lambda params (let*-values rest . body))))))
(define-syntax let-values #;(define-syntax let-values
(syntax-rules () (syntax-rules ()
((let-values ("step") (binds ...) bind expr maps () () . body) ((let-values ("step") (binds ...) bind expr maps () () . body)
(let*-values (binds ... (bind expr)) (let maps . body))) (let*-values (binds ... (bind expr)) (let maps . body)))
@ -1448,6 +1448,74 @@
(let-values ("step") () () expr () params rest . body)) (let-values ("step") () () expr () params rest . body))
)) ))
(define-syntax
let-values
(syntax-rules
()
((let-values (binding ...) body0 body1 ...)
(let-values
"bind"
(binding ...)
()
((lambda () body0 body1 ...))))
;(begin body0 body1 ...)))
((let-values "bind" () tmps body)
(let tmps body))
((let-values
"bind"
((b0 e0) binding ...)
tmps
body)
(let-values
"mktmp"
b0
e0
()
(binding ...)
tmps
body))
((let-values
"mktmp"
()
e0
args
bindings
tmps
body)
(call-with-values
(lambda () e0)
(lambda args
(let-values "bind" bindings tmps body))))
((let-values
"mktmp"
(a . b)
e0
(arg ...)
bindings
(tmp ...)
body)
(let-values
"mktmp"
b
e0
(arg ... x)
bindings
(tmp ... (a x))
body))
((let-values
"mktmp"
a
e0
(arg ...)
bindings
(tmp ...)
body)
(call-with-values
(lambda () e0)
;(lambda (arg ... x)
(lambda (arg ... . x)
(let-values "bind" bindings (tmp ... (a x)) body))))))
(define-syntax guard (define-syntax guard
(syntax-rules () (syntax-rules ()
((guard (var clause ...) e1 e2 ...) ((guard (var clause ...) e1 e2 ...)