diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 06:31:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 06:31:46 +0000 |
| commit | 8e0d8383d1c9ee1ae269400dac75f185d465dcc1 (patch) | |
| tree | 42a7409e3d4fc9bf10bc49f96cdea0c618314918 /src/interp/functor.boot | |
| parent | f2d31d8bc90b46e0c3373d2980cfa6f730148d1e (diff) | |
| download | open-axiom-8e0d8383d1c9ee1ae269400dac75f185d465dcc1.tar.gz | |
small cleanups
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 96622dba..c75d34da 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -460,10 +460,10 @@ DescendCodeAdd1(base,flag,target,formalArgs,formalArgModes) == if update(u,copyvec,[]) then code:=delete(u,code)) where update(code,copyvec,sofar) == atom code =>nil - code.op in '(getShellEntry ELT QREFELT) => + code.op in '(getShellEntry ELT) => copyvec.(third code):=union(copyvec.(third code), sofar) true - code is [x,name,number,u'] and x in '(setShellEntry QSETREFV) => + code is ['setShellEntry,name,number,u'] => update(u',copyvec,[[name,:number],:sofar]) for i in 6..n repeat for u in copyvec.i repeat @@ -563,7 +563,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) == ConstantCreator u == null u => false - u is [q,.,.,u'] and (q in '(setShellEntry QSETREFV)) => + u is ['setShellEntry,.,.,u'] => ConstantCreator u' u is ['CONS,:.] => false true |