diff options
author | dos-reis <gdr@axiomatics.org> | 2007-12-06 01:45:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-12-06 01:45:55 +0000 |
commit | 8aa35f143d2cdb6df3bfd1c7b466a07bd84cd464 (patch) | |
tree | de97ce8e0e07e80219c63b48dabc142296024702 /src/interp/info.boot | |
parent | 132b009e95983fe1de764750cb5bde1d0d0fd3b7 (diff) | |
download | open-axiom-8aa35f143d2cdb6df3bfd1c7b466a07bd84cd464.tar.gz |
* Makefile.pamphlet (xruncomp.$(FASLEXT)): Remove rule.
(OCOBJS): Don't include xruncomp.$(FASLEXT) anymore.
* xruncomp.boot: Remove.
* compiler.boot (getFormModemaps): Merge from xruncomp.boot.
* functor.boot (LookUpSigSlots): Likewise.
* info.boot (actOnInfo): Likewise.
* modemap.boot (addModemap1): Likewise.
(evalAndSub): Likewise.
(substNames): Likewise.
(addConstructorModemaps): Likewise.
* nruncomp.boot (NRTencode): Likewise.
(genDeltaEntry): Likewise.
(NRTassignCapsuleFunctionSlot): Likewise.
(consDomainName): Likewise.
(changeDirectoryInSlot1): Likewise.
Diffstat (limited to 'src/interp/info.boot')
-rw-r--r-- | src/interp/info.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/info.boot b/src/interp/info.boot index b53cc314..adda1212 100644 --- a/src/interp/info.boot +++ b/src/interp/info.boot @@ -209,7 +209,6 @@ knownInfo pred == --error '"knownInfo" false ---------------------> NEW DEFINITION (override in xruncomp.boot.pamphlet) actOnInfo(u,$e) == null u => $e u is ["PROGN",:l] => (for v in l repeat $e:= actOnInfo(v,$e); $e) @@ -231,9 +230,10 @@ actOnInfo(u,$e) == --there is nowhere %else that this sort of thing exists u is ["SIGNATURE",name,operator,modemap] => implem:= - (implem:=assoc([name,:modemap],get(operator,'modemap,$e))) => + (implem:=ASSOC([name,:modemap],get(operator,'modemap,$e))) => CADADR implem - ['ELT,name,nil] + name = "$" => ['ELT,name,-1] + ['ELT,name,substitute('$,name,modemap)] $e:= addModemap(operator,name,modemap,true,implem,$e) [vval,vmode,venv]:= GetValue name SAY("augmenting ",name,": ",u) @@ -257,7 +257,7 @@ actOnInfo(u,$e) == -- SAY("augmenting ",name,": ",cat) -- put(name, "value", (vval, cat, venv), $e) member(cat,first ocatvec.4) or - assoc(cat,CADR ocatvec.4) is [.,'T,.] => $e + ASSOC(cat,CADR ocatvec.4) is [.,"T",.] => $e --SAY("Category extension error: --cat shouldn't be a join --what was being asserted is an ancestor of what was known |