Disabled external gits

2022-04-07 18:43:21 +02:00
parent 182267a8cb
commit 88cb3426ad
1067 changed files with 102374 additions and 6 deletions
--- a/cs420-acc/l3-compiler/tests/expr-letrec.l3
+++ b/cs420-acc/l3-compiler/tests/expr-letrec.l3
@@ -0,0 +1,13 @@
+;; In Emacs, open this file in -*- Scheme -*- mode
+
+;; Test the "letrec" expression
+
+(@byte-write 66)
+
+(letrec ((fact (fun (x) (if (@= 0 x) 1 (@* x (fact (@- x 1)))))))
+  (@byte-write (@- (fact 5) 55)))
+(letrec ((even? (fun (x) (if (@= x 0) #t (odd?  (@- x 1)))))
+         (odd?  (fun (x) (if (@= x 0) #f (even? (@- x 1))))))
+  (if (even? 66)
+      (@byte-write 66)
+      (@byte-write 63)))