diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
commit | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (patch) | |
tree | cfa8803798bef9eb304da47b18ef024c5c39b702 /src/interp/compiler.boot | |
parent | 9ddf05bc7781163fbd6bd2b894337d8721de117a (diff) | |
download | open-axiom-ca4b1b74d8e743f50f0db37f1b33265f46547f01.tar.gz |
Character constants clean up
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 4a5dd20b..36d29900 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1040,7 +1040,7 @@ compSeq1(l,$exitModeStack,e) == if c="failed" then return nil catchTag:= MKQ gensym() form:= ["SEQ",:replaceExitEtc(c,catchTag,"TAGGEDexit",$exitModeStack.(0))] - [["CATCH",catchTag,form],$exitModeStack.(0),$finalEnv] + [["CATCH",catchTag,form],$exitModeStack.0,$finalEnv] compSeqItem(x,m,e) == comp(macroExpand(x,e),m,e) @@ -1200,14 +1200,14 @@ compElt(form,m,E) == modemap:= -- FIXME: do this only for constants. n:=#mmList - 1=n => mmList.(0) + 1=n => mmList.0 0=n => return stackMessage('"Operation %1b missing from domain: %2p", [anOp,aDomain]) stackWarning('"more than 1 modemap for: %1 with dc = %2p ===> %3", [anOp,aDomain,mmList]) - mmList.(0) + mmList.0 [sig,[pred,val]]:= modemap #sig ~= 2 and val isnt ["CONST",:.] => nil val := genDeltaEntry([opOf anOp,:modemap],E) |