diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-29 14:09:36 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-29 14:09:36 +0000 |
commit | 6a9b7788dfb5df94343bdb7e5fa2031e388cf356 (patch) | |
tree | d5904b5e4d541ae9171f7e4bea34fbabb2310af2 /src/interp/g-util.boot | |
parent | db800c3db36926eb3d99023c722e59e391314d7b (diff) | |
download | open-axiom-6a9b7788dfb5df94343bdb7e5fa2031e388cf356.tar.gz |
* interp/lisplib.boot (loadLib): Remove deadcode.
(isDomainForm): Tidy.
(isFunctor): Likewise.
(compDefineExports): Remove as no longer used.
* interp/sys-utility.boot (loadExports): Likewise.
* interp/g-util.boot (get0, get1, get2): Tidy.
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r-- | src/interp/g-util.boot | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 321f8b9d..ec3afc21 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -222,22 +222,21 @@ get(x,prop,e) == get1(x,prop,e) get0(x,prop,e) == - cons? x => get(x.op,prop,e) - u:= QLASSQ(x,first first e) => QLASSQ(prop,u) - (tail:= rest first e) and (u:= fastSearchCurrentEnv(x,tail)) => + cons? x => get0(x.op,prop,e) + u := QLASSQ(x,first first e) => QLASSQ(prop,u) + (tail := rest first e) and (u := fastSearchCurrentEnv(x,tail)) => QLASSQ(prop,u) nil get1(x,prop,e) == - --this is the old get - cons? x => get(x.op,prop,e) - prop="modemap" and $insideCapsuleFunctionIfTrue => + cons? x => get1(x.op,prop,e) + prop = "modemap" and $insideCapsuleFunctionIfTrue => symbolLassoc("modemap",getProplist(x,$CapsuleModemapFrame)) or get2(x,prop) LASSOC(prop,getProplist(x,e)) or get2(x,prop) get2(x,prop) == - prop="modemap" and ident? x and constructor? x => + prop = "modemap" and ident? x and constructor? x => (u := getConstructorModemap x) => [u] nil nil |