diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-16 16:22:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-16 16:22:08 +0000 |
commit | a03f68879f697998e2a3f41029a2034dc76767e0 (patch) | |
tree | 55d9bae7ff9aa4979da1567e0e1e6b49af5f92f0 /src/interp/wi1.boot | |
parent | d338fac5f30034125dceaf6ab952018d8cba5a76 (diff) | |
download | open-axiom-a03f68879f697998e2a3f41029a2034dc76767e0.tar.gz |
r12470@gauss: gdr | 2008-12-14 17:43:50 -0600
Forgot to commit ChangeLog.
r12471@gauss: gdr | 2008-12-14 19:11:21 -0600
Fix typo in PrimitiveRatRicDE.
r12472@gauss: gdr | 2008-12-15 01:40:45 -0600
Reformat preparse.lisp.
r12473@gauss: gdr | 2008-12-15 03:25:17 -0600
Tidy.
r12474@gauss: gdr | 2008-12-15 21:33:54 -0600
Remove unused codes.
r12475@gauss: gdr | 2008-12-15 21:57:22 -0600
.
r12476@gauss: gdr | 2008-12-15 23:07:49 -0600
Tidy fatal diagnostics.
r12477@gauss: gdr | 2008-12-15 23:50:02 -0600
Fold iterator.boot into compiler.boot.
Diffstat (limited to 'src/interp/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index 201a8a71..65ad705c 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -174,7 +174,6 @@ compTopLevel(x,m,e) == $NRTderivedTargetIfTrue: local := false $killOptimizeIfTrue: local:= false $forceAdd: local:= false - $packagesUsed: local := [] -- The next line allows the new compiler to be tested interactively. compFun := 'compOrCroak if x is ["where",:.] then x := markWhereTran x @@ -685,7 +684,7 @@ canReturn(expr,level,exitCount,ValueFlag) == --SPAD: exit and friends atom op => and/[canReturn(u,level,exitCount,ValueFlag) for u in expr] op is ["XLAM",args,bods] => and/[canReturn(u,level,exitCount,ValueFlag) for u in expr] - systemErrorHere '"canReturn" --for the time being + systemErrorHere ["canReturn",expr] --for the time being compList(l,m is ["List",mUnder],e) == markImport m @@ -1073,7 +1072,6 @@ compNot([op,arg], pWas, m, e) == compDefine(form,m,e) == $macroIfTrue: local - $packagesUsed: local ['DEF,.,originalSignature,.,body] := form if not $insideFunctorIfTrue then $originalBody := COPY body |