From 8e093ab0b5f3d3ae43fb680e82bd70a507d62904 Mon Sep 17 00:00:00 2001 From: Jacob Date: Sun, 1 Mar 2026 17:12:02 -0500 Subject: [PATCH] Updated TidBit3. --- 11-tidbit-3-tidbit-3-tidbit-3/main.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/11-tidbit-3-tidbit-3-tidbit-3/main.rkt b/11-tidbit-3-tidbit-3-tidbit-3/main.rkt index 678e84c..ea4db4c 100644 --- a/11-tidbit-3-tidbit-3-tidbit-3/main.rkt +++ b/11-tidbit-3-tidbit-3-tidbit-3/main.rkt @@ -81,7 +81,7 @@ The grammar: [else (With (first names) (first vals) (binds* (rest names) (rest vals) body))])) (: Z : -> TIDBIT) -; Z combinator! +; Z combinator. (define (Z) (Fun (list 'f) (Call @@ -140,10 +140,14 @@ The grammar: [(list 'with (list (symbol: name) named) body) (With name (parse-sexpr named) (parse-sexpr body))] [else (error 'parse-sexpr "bad `with' syntax in ~s" sexpr)])] + + ; Recur. [(cons 'recur more) (match sexpr [(list 'recur (list (symbol: name) named) body) - (Recur name (parse-sexpr named) (parse-sexpr body))] + (println named) + (println body) + (Recur name (parse-sexpr named) (parse-sexpr body))] [else (error 'parse-sexpr "bad `recur' syntax in ~s" sexpr)])] ; Function declaration.