diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-24 00:14:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-24 00:14:26 +0000 |
| commit | 39c21d65868a04d915dc03b283839e221f37d498 (patch) | |
| tree | 18be8d5a88a3e02dda7acc79a93a6f588871d0fb /src/interp/functor.boot | |
| parent | 3726db8810fbc954aa8782dd9b4b638f132c0aec (diff) | |
| download | open-axiom-39c21d65868a04d915dc03b283839e221f37d498.tar.gz | |
* interp/define.boot ($CheckVectorList): Remove.
(compDefineFunctor1): Do not bind it.
(reportOnFunctorCompilation): Do not call displayMissingFunctions.
(displayMissingFunctions): Remove as useless.
* interp/functor.boot (SetFunctionSlots): Do not set slot in the
first vector of $catvecList.
* interp/nruncomp.boot (buildFunctor): Remove makeCatvecCode,
emptyVector, domainShell. Do not call NRTcheckVector.
(NRTcheckVector): Remove as useless.
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index cf329dba..14f79150 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -521,15 +521,12 @@ TryGDC cond == SetFunctionSlots(sig,body,flag,mode) == --mode is either "original" or "adding" null body => return nil - u := first $catvecList - for catImplem in LookUpSigSlots(sig,categoryExports u) repeat + for catImplem in LookUpSigSlots(sig,categoryExports $domainShell) repeat catImplem is [q,.,index] and q in '(ELT CONST) => if q = 'CONST and body is ['CONS,a,b] then body := ['CONS,'IDENTITY,['FUNCALL,a,b]] body:= ['%store,['%tref,'$,index],body] not vector? $SetFunctions => nil --packages don't set it - if TruthP flag then -- unconditionally defined function - vectorRef(u,index) := true TruthP vectorRef($SetFunctions,index) => -- the function was already assigned return body := nil vectorRef($SetFunctions,index) := |