diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 8f3c278c..48e18254 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -185,10 +185,14 @@ optDeltaEntry(op,sig,dc,eltOrConst) == MKQ x fun := lookupDefiningFunction(op,nsig,ndc) fun = nil => nil - if cons? fun then - eltOrConst = "CONST" => return ['XLAM,'ignore, SPADCALL fun] - fun := first fun - getFunctionReplacement compileTimeBindingOf fun + fun := + fun is ['makeSpadConstant,:.] and + (fun' := getFunctionReplacement second fun) => + return fun' + --eltOrConst = 'CONST => return ['XLAM,nil, SPADCALL fun] + cons? fun => first fun + fun + getFunctionReplacement fun genDeltaEntry(opMmPair,e) == --called from compApplyModemap |