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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-09-03 00:14:57 -04:00
parent 68c8f54d7a
commit b7a67b6809
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test-let-values.scm
View file

@ -20,12 +20,16 @@
(my-let-values ("step") binds (bind ... tmp) expr (maps ... (x tmp)) y rest . body))
((my-let-values ("step") binds (bind ...) expr (maps ...) x rest . body)
(my-let-values ("step") binds (bind ... . tmp) expr (maps ... (x tmp)) () rest . body))
((my-let-values ((params expr) . rest) . body)
(my-let-values ("step") () () expr () params rest . body))
; ((my-let-values ((params expr) . rest) . body)
; (my-let-values ("step") () () expr () params rest . body))
))
;(list
; (my-let-values))
(write
(my-let-values (((a b c) (values 1 2 3))) (list a b c)))
; (my-let-values (((a b c) (values 1 2 3))) (list a b c)))
(my-let-values ("step") () () (values 1 2 3) () (a b c) () (list a b c)))
; (my-let-values ("step") () (tmp) (values 1 2 3) (((a b c) tmp)) () () (list a b c)))
; (my-let-values ("step") () tmp (values 1 2 3) (((a b c) tmp)) () () (list a b c)))
; (my-let-values ("step") () (tmp tmp tmp . tmp) (values 1 2 3) ((a tmp) (b tmp) (c tmp) (() tmp)) () () (list a b c)))