From b7a67b68093fe350c467a0c847dd19cfadc866a8 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 3 Sep 2016 00:14:57 -0400 Subject: [PATCH] WIP --- test-let-values.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/test-let-values.scm b/test-let-values.scm index d8593f0e..5926a95c 100644 --- a/test-let-values.scm +++ b/test-let-values.scm @@ -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)))