diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-28 21:51:45 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-28 21:51:45 -0800 |
commit | 0cb4834d923450c2324232954505b52f9e7053f0 (patch) | |
tree | d4fa6b253cabe5eb09afd1f3f9450f9d500fe6fa | |
parent | 687bef6eb89db2a2d84ddc96bf9fb8efdf1546d7 (diff) | |
download | open-axiom-0cb4834d923450c2324232954505b52f9e7053f0.tar.gz |
stuffSlot: Take the function directly from getLookupFun.
-rw-r--r-- | src/interp/nruncomp.boot | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index ab55362d..118fe6b4 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -389,10 +389,7 @@ stuffSlot(dollar,i,item) == stuffDomainSlots dollar == domname := devaluate dollar infovec := property(opOf domname,'infovec) - lookupFunction := getLookupFun infovec - lookupFunction := - lookupFunction is 'lookupIncomplete => function lookupIncomplete - function lookupComplete + lookupFunction := symbolFunction getLookupFun infovec template := infovec.0 if vectorRef(template,5) then stuffSlot(dollar,5,vectorRef(template,5)) |