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

More work on barf.

Browse Source
This commit is contained in:
jacob
2026-01-07 12:54:27 -05:00
parent 841de92748
commit 5be8bba895
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
08-barf/main.rkt
+8
View File
@@ -264,6 +264,14 @@ CFG for the BARF language:
[(Lambda par body) (eval-lambda arg par body)] [(Lambda par body) (eval-lambda arg par body)]
[_ (error 'eval-call "Expected lambda expression to call, instead got: ~s." f)])])) [_ (error 'eval-call "Expected lambda expression to call, instead got: ~s." f)])]))
(: findfun : Symbol PROGRAM -> FUN)
; Finds the Fun.
(define (findfun fname prog)
(define foundfun (cases prog [(Prog flist)
(ormap (lambda (f) (cases f [(Fun name param body)
(if (string=? name fname) (f) (#f))])))]))
(if (not foundfun) (error 'findfun "Function not found.") foundfun))
(: eval : BARF -> Primitive) (: eval : BARF -> Primitive)
;; evaluates BARF expressions by reducing them to numbers ;; evaluates BARF expressions by reducing them to numbers
(define (eval expr) (define (eval expr)