jacob/cs5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated TidBit3.

Browse Source
This commit is contained in:
jacob
2026-03-01 17:12:02 -05:00
parent ecfbf910cd
commit 8e093ab0b5
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
11-tidbit-3-tidbit-3-tidbit-3/main.rkt
+6 -2
View File
@@ -81,7 +81,7 @@ The grammar:
[else (With (first names) (first vals) (binds* (rest names) (rest vals) body))])) [else (With (first names) (first vals) (binds* (rest names) (rest vals) body))]))
(: Z : -> TIDBIT) (: Z : -> TIDBIT)
; Z combinator! ; Z combinator.
(define (Z) (define (Z)
(Fun (list 'f) (Fun (list 'f)
(Call (Call
@@ -140,10 +140,14 @@ The grammar:
[(list 'with (list (symbol: name) named) body) [(list 'with (list (symbol: name) named) body)
(With name (parse-sexpr named) (parse-sexpr body))] (With name (parse-sexpr named) (parse-sexpr body))]
[else (error 'parse-sexpr "bad `with' syntax in ~s" sexpr)])] [else (error 'parse-sexpr "bad `with' syntax in ~s" sexpr)])]
; Recur.
[(cons 'recur more) [(cons 'recur more)
(match sexpr (match sexpr
[(list 'recur (list (symbol: name) named) body) [(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)])] [else (error 'parse-sexpr "bad `recur' syntax in ~s" sexpr)])]
; Function declaration. ; Function declaration.