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/g-opt.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/g-opt.boot')
-rw-r--r-- | src/interp/g-opt.boot | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 5b07aad2..52f54d3f 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -156,7 +156,7 @@ optCall (x is ["call",:u]) == RPLACA(fn,"getShellEntry") RPLAC(rest x,[:a,fn]) x - systemErrorHere ['"optCall with", :bright x] + systemErrorHere ["optCall",x] optCallSpecially(q,x,n,R) == y:= LASSOC(R,$specialCaseKeyList) => optSpecialCall(x,y,n) @@ -176,7 +176,6 @@ optCallSpecially(q,x,n,R) == nil optCallEval u == - u is ["Boolean"] => Boolean() u is ["List",:.] => List Integer() u is ["Vector",:.] => Vector Integer() u is ["PrimitiveArray",:.] => PrimitiveArray Integer() @@ -441,7 +440,7 @@ optLET u == -- Munge inits into list of dotted-pairs. Lovely Lisp. for defs in tails inits repeat def := first defs - atom def => systemErrorHere "optLET" -- cannot happen + atom def => systemErrorHere ["optLET",def] -- cannot happen rplac(rest def, second def) SUBLIS(inits,body) |