Implement 5.44

2021-04-25 09:31:51 -04:00
parent 335d011db8
commit 57b52c35aa
3 changed files with 27 additions and 4 deletions
--- a/shared/sicp-compiler-lexical-addressing.scm
+++ b/shared/sicp-compiler-lexical-addressing.scm
@@ -37,8 +37,10 @@
                           target
                           linkage))
        ((cond? exp) (compile (cond->if exp) ct-env target linkage))
-        ((primitive-procedure? exp)
-         (compile-primitive exp target linkage))
+        ((primitive-procedure? exp ct-env)
+         ;; Implementation is in ex-5_31-38.scm
+         ;; (compile-primitive exp target linkage))
+         (error "compile-primitive currently not supported for lexical-addressing"))
        ((application? exp)
         (compile-application exp ct-env target linkage))
        (else