Implement 5.38

misc/ch5-compiler.scm

@@ -34,6 +34,8 @@
                            target
                            linkage))
         ((cond? exp) (compile (cond->if exp) target linkage))
+        ((primitive-procedure? exp)
+         (compile-primitive exp target linkage))
         ((application? exp)
          (compile-application exp target linkage))
         (else
@@ -46,6 +48,8 @@
 (define (empty-instruction-sequence)
   (make-instruction-sequence '() '() '()))
 
+;; Implemented in 5.38.
+(define (primitive-procedure? exp) #f)
 
 ;;;SECTION 5.5.2