Reasoned Schemer Testcases added, all test passes

parent 14658a56
......@@ -123,7 +123,7 @@ and-interleave
((_ meta ((s v) ...) code ...)
(with-syntax (((g ...) (generate-temporaries #'(s ...)))
((ss ...) (generate-temporaries #'(s ...))))
#'(letg-aux-aux (g ...) (ss ...) (v ...)
#'(letg-aux (g ...) (ss ...) (v ...)
(let-syntax ((s (make-variable-transformer
(lambda (x)
(syntax-case x (set!)
......@@ -143,7 +143,7 @@ and-interleave
((_ () () () code)
code)
((_ (g . gs) (ss . sss) (v . vs) code)
(with-guarded-state g ((ss v))
(with-guarded-states g ((ss v))
(letg-aux gs sss vs code)))))
#;
(define-syntax define-guarded
......
......@@ -10,8 +10,8 @@
<def> <<define>> <with-fail> <dynwind> parse<>
let<> <or-i> <stall> <continue> <take>
<state-ref> <state-set!> <lv*> <clear>
<and-i> and-interleave interleave
<letg> define-guarded)
<and-i> and-interleave interleave tr
<letg> <set!> define-guarded)
(re-export define-guile-log guile-log-macro? log-code-macro log-code-macro?)
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment