diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-26 03:50:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-26 03:50:39 +0000 |
| commit | e271fe085ec66f959d633c6da4597d7b8703f88e (patch) | |
| tree | f7116a71201dfdfc3dc6244f1e048138ba3b3f32 /src/interp/nruncomp.boot | |
| parent | 95aa36a44c01bf8cb567d2eeebdbd1577ac88f9e (diff) | |
| download | open-axiom-e271fe085ec66f959d633c6da4597d7b8703f88e.tar.gz | |
Remove $lisplibAttributes.
* interp/define.boot (compDefineFunctor1): Tidy.
(compCapsuleInner): Add a DB first parameter. Adjust callers.
* interp/lisplib.boot (NRTgenInitialAttributeAlist): Likewise.
(simplifyAttributeAlist): Likewise.
* interp/nruncomp.boot (changeDirectoryInSlot1): Likewise.
(buildFunctor): Change first parameter to DB. Adjust caller.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 3070bd71..545d6ac3 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -448,7 +448,7 @@ makeSpadConstant [fn,dollar,slot] == u.rest := val val -buildFunctor($definition is [name,:args],sig,code,$locals,$e) == +buildFunctor(db,sig,code,$locals,$e) == --PARAMETERS -- $definition: constructor form, e.g. (SquareMatrix 10 (RationalNumber)) -- sig: signature of constructor form @@ -464,10 +464,12 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == --GLOBAL VARIABLES REFERENCED: -- $domainShell: passed in from compDefineFunctor1 -- $QuickCode: compilation flag + $definition: local := dbConstructorForm db + [name,:args] := $definition if code is ['add,.,newstuff] then code := newstuff - changeDirectoryInSlot1() --this extends $NRTslot1PredicateList + changeDirectoryInSlot1 db --this extends $NRTslot1PredicateList --LOCAL BOUND FLUID VARIABLES: $GENNO: local:= 0 --bound in compDefineFunctor1, then as parameter here @@ -665,7 +667,7 @@ NRTaddToSlam([name,:argnames],shell) == args := ['%list,:ASSOCRIGHT $devaluateList] addToConstructorCache(name,args,shell) -changeDirectoryInSlot1() == --called by buildFunctor +changeDirectoryInSlot1 db == --called by buildFunctor --3 cases: -- if called inside buildFunctor, $NRTdeltaLength gives different locs -- otherwise called from compFunctorBody (all lookups are forwarded): |