diff options
author | dos-reis <gdr@axiomatics.org> | 2007-11-22 17:20:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-11-22 17:20:27 +0000 |
commit | fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf (patch) | |
tree | 05aa94e2606b88faf554913a03a60bc424e56102 /src/interp/i-intern.boot | |
parent | 4244764830efa92de999f8e548f0cc2a800e61d1 (diff) | |
download | open-axiom-fcc7f11db9c755b9b58ce43d37bbe8a702af8ebf.tar.gz |
* as.boot: Globally substitute %noBranch for noBranch.
* ax.boot: Likewise.
* cattable.boot: Likewise.
* compiler.boot: Likewise.
* def.lisp: Likewise.
* define.boot: Likewise.
* functor.boot: Likewise.
* g-opt.boot: Likewise.
* i-analy.boot: Likewise.
* i-intern.boot: Likewise.
* i-map.boot: Likewise.
* i-object.boot: Likewise.
* i-output.boot: Likewise.
* i-spec2.boot: Likewise.
* info.boot: Likewise.
* mark.boot: Likewise.
* nrunopt.boot: Likewise.
* package.boot: Likewise.
* parse.boot: Likewise.
* pf2atree.boot: Likewise.
* pf2sex.boot: Likewise.
* postpar.boot: Likewise.
* pspad2.boot: Likewise.
* wi2.boot: Likewise.
Diffstat (limited to 'src/interp/i-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index c2cd8a84..1253ebc8 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -97,7 +97,7 @@ mkAtree1 x == null x => throwKeyedMsg("S2IP0005",['"NIL"]) VECP x => x atom x => - x in '(noBranch noMapVal) => x + x in '(%noBranch noMapVal) => x x in '(nil true false) => mkAtree2([x],x,NIL) x = '_/throwAway => -- don't want to actually compute this @@ -202,7 +202,7 @@ mkAtree3(x,op,argl) == ul => ['and,lowTest,upTest] lowTest mkAtree1 z - x is ["IF",p,"noBranch",a] => mkAtree1 ["IF",["not",p],a,"noBranch"] + x is ["IF",p,"%noBranch",a] => mkAtree1 ["IF",["not",p],a,"%noBranch"] x is ["RULEDEF",:.] => [mkAtreeNode "RULEDEF",:CDR x] x is ["MDEF",sym,junk1,junk2,val] => -- new macros look like macro f == or macro f(x) === |