diff options
author | dos-reis <gdr@axiomatics.org> | 2010-06-24 05:20:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-06-24 05:20:27 +0000 |
commit | 68639c56f45afe2df802235f50b4ab8b3886dca4 (patch) | |
tree | 240ecbb8391f60cf2a008f3a22031b3751829f5d /src/interp/functor.boot | |
parent | dac28fb009d9c27cb8e0f9e453feb8a630b7e145 (diff) | |
download | open-axiom-68639c56f45afe2df802235f50b4ab8b3886dca4.tar.gz |
* interp/c-util.boot: Cleanup.
* interp/compiler.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index f2c028c0..f79a8fb2 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -388,7 +388,7 @@ mkTypeForm x == ['LIST,MKQ 'Record,:[mkTypeForm y for y in argl]] x is ['Join,:argl] => ['LIST,MKQ 'Join,:[mkTypeForm y for y in argl]] - x is ["%Call",:argl] => ['MKQ, optCall x] + x is ['%call,:argl] => ['MKQ, optCall x] --The previous line added JHD/BMT 20/3/84 --Necessary for proper compilation of DPOLY SPAD x is [op] => MKQ x @@ -625,7 +625,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) == code is ['LIST,:.] => nil code is ['devaluate,:.] => nil code is ['MDEF,:.] => nil - code is ["%Call",:.] => code + code is ['%call,:.] => code code is ["setShellEntry",:.] => code -- can be generated by doItIf code is ['SETELT,:.] => systemErrorHere ["DescendCode",code] code is ['QSETREFV,:.] => systemErrorHere ["DescendCode",code] |