(define-variable! 'false false initial-env)
initial-env))
+
(define (primitive-procedure? proc)
(tagged-list? proc 'primitive))
(list 'primitive (cadr proc)))
primitive-procedures))
-
-
(define (apply-primitive-procedure proc args)
(apply-in-underlying-scheme
(primitive-implementation proc) args))
'<procedure-env>))
(display object)))
-;; (define the-global-environment (setup-environment))
+
+(define the-global-environment (setup-environment))
+