diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-03 17:14:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-03 17:14:17 +0000 |
commit | 8ea3a4b4aae5c6c1287bc4e48a2fcdd33a51a7f5 (patch) | |
tree | 997b63dfc2408dbce2bed4b98f5f9cf9e08e0de0 /src/interp/c-util.boot | |
parent | d31c116e4080b085554c7f5cad72851cdb0e7b16 (diff) | |
download | open-axiom-8ea3a4b4aae5c6c1287bc4e48a2fcdd33a51a7f5.tar.gz |
* interp/c-util.boot: Replace COND with %when throught.
Use %otherwise instead of %true where appropriate.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/i-code.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/info.boot: Likewise.
* interp/modemap.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/pspad2.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
* interp/compiler.boot (canReturn): Don't test for COND anymore.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 08bfb572..e124a198 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1029,10 +1029,10 @@ updateCapsuleDirectory(item,pred) == --% Tree walkers -++ Walk VM COND-form mutating sub-forms with unary +++ Walk VM conditional forms mutating sub-forms with the unary ++ function `fun' mutateCONDFormWithUnaryFunction(form,fun) == - form isnt ["COND",:body] => form + form isnt ['%when,:body] => form for clauses in tails body repeat -- a clause is a list of forms for subForms in tails first clauses repeat @@ -1106,7 +1106,7 @@ eqSubst(args,parms,body) == ++ Walk `form' and replace simple functions as appropriate. replaceSimpleFunctions form == atomic? form => form - form is ["COND",:body] => + form is ['%when,:body] => mutateCONDFormWithUnaryFunction(form,"replaceSimpleFunctions") form is ["LET",:.] => optLET mutateLETFormWithUnaryFunction(form,"replaceSimpleFunctions") @@ -1198,7 +1198,7 @@ foldSpadcall form == form is ["DECLARE",:.] => form -- don't walk declarations form is ["LET",inits,:body] => mutateLETFormWithUnaryFunction(form,"foldSpadcall") - form is ["COND",:stmts] => + form is ['%when,:stmts] => mutateCONDFormWithUnaryFunction(form,"foldSpadcall") for args in tails rest form repeat foldSpadcall first args |