The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Solved hygiene problem, MCE runs (VERY slowly)
[scheme.forth.jl.git]
/
examples
/
metacirc.scm
diff --git
a/examples/metacirc.scm
b/examples/metacirc.scm
index
d63e685
..
f28367b
100644
(file)
--- a/
examples/metacirc.scm
+++ b/
examples/metacirc.scm
@@
-329,6
+329,7
@@
(define-variable! 'false false initial-env)
initial-env))
(define-variable! 'false false initial-env)
initial-env))
+
(define (primitive-procedure? proc)
(tagged-list? proc 'primitive))
(define (primitive-procedure? proc)
(tagged-list? proc 'primitive))
@@
-352,8
+353,6
@@
(list 'primitive (cadr proc)))
primitive-procedures))
(list 'primitive (cadr proc)))
primitive-procedures))
-
-
(define (apply-primitive-procedure proc args)
(apply-in-underlying-scheme
(primitive-implementation proc) args))
(define (apply-primitive-procedure proc args)
(apply-in-underlying-scheme
(primitive-implementation proc) args))
@@
-390,4
+389,6
@@
'<procedure-env>))
(display object)))
'<procedure-env>))
(display object)))
-;; (define the-global-environment (setup-environment))
+
+(define the-global-environment (setup-environment))
+