diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-27 02:57:00 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-27 02:57:00 -0800 |
| commit | ba8d29ccd1dd272f5883fe3d042b1bc38f1ce688 (patch) | |
| tree | 489b3e47f048e704d9a5bd7996f20dd10fb68fe0 /src/interp/functor.boot | |
| parent | 12c45e096d0e55f6df58366fb670eed0a50cb453 (diff) | |
| download | open-axiom-ba8d29ccd1dd272f5883fe3d042b1bc38f1ce688.tar.gz | |
Simplify representation of constants in functors.
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 30c5a5df..4a294084 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -521,7 +521,7 @@ SetFunctionSlots(sig,body,flag,mode) == --mode is either "original" or "adding" for catImplem in findOperatorImplementations sig repeat catImplem is [q,.,index] and q in '(ELT CONST) => if q = 'CONST and body is ['%closure,a,b] then - body := ['%closure,'%constant,['FUNCALL,a,b]] + body := ['%closure,'%constant,[second a,b]] body:= ['%store,['%tref,'$,index],body] not vector? $SetFunctions => nil --packages don't set it TruthP vectorRef($SetFunctions,index) => -- the function was already assigned |