Implement 5.24

2021-04-05 11:09:03 -04:00
parent d0d650ad62
commit d81460ccae
3 changed files with 88 additions and 47 deletions
--- a/ex-5_23-xx.scm
+++ b/ex-5_23-xx.scm
@@ -27,7 +27,16 @@
 (assert (get-register-contents eceval 'val) 9)


-(display "\nex-5.24 \n")
+(display "\nex-5.24 - cond-special-form\n")
+
+(set-register-contents! eceval 'exp
+  '(cond
+     ((= 2 1) 0)
+     ((= 2 3) 1)
+     ((= 0 4) 2)
+     (else (* 2 5))))
+(start eceval)
+(assert (get-register-contents eceval 'val) 10)


 (display "\nex-5.25\n")