aboutsummaryrefslogtreecommitdiff
path: root/src/boot/ast.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-06-22 18:55:36 +0000
committerdos-reis <gdr@axiomatics.org>2011-06-22 18:55:36 +0000
commit44c634744821fb115b3a850851b805df2c316cb3 (patch)
treefe4ec2e5b08a1dc953461785f0cd812286558f8b /src/boot/ast.boot
parent75b3d072dd6a56dbe7d4fc675082056c2f2b54b2 (diff)
downloadopen-axiom-44c634744821fb115b3a850851b805df2c316cb3.tar.gz
* boot/ast.boot (shoeEVALANDFILEACTQ): Remove.
(bfMain): Don't use it. (translateToplevelExpression): Likewise. * interp/Makefile.in (stamp): $(AUTO) is no more. (all-interpsys): Likewise.
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r--src/boot/ast.boot6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 5cf0176a..190fc926 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1146,9 +1146,6 @@ bfCompHash(op,argl,body) ==
shoeCompileTimeEvaluation x ==
["EVAL-WHEN", [KEYWORD::COMPILE_-TOPLEVEL], x]
-shoeEVALANDFILEACTQ x==
- ["EVAL-WHEN", [KEYWORD::EXECUTE, KEYWORD::LOAD_-TOPLEVEL], x]
-
bfMain(auxfn,op)==
g1 := bfGenSymbol()
arg :=["&REST",g1]
@@ -1172,8 +1169,7 @@ bfMain(auxfn,op)==
defCode := ["DEFPARAMETER",cacheName,
['MAKE_-HASHTABLE,["QUOTE","UEQUAL"]]]
[defCode,mainFunction,
- shoeEVALANDFILEACTQ
- ["SETF",["GET",
+ ["SETF",["GET",
["QUOTE", op],["QUOTE",'cacheInfo]],["QUOTE", cacheVector]]]