aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r--src/interp/nruncomp.boot6
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index cbbabadc..dc2a7405 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -176,12 +176,6 @@ optDeltaEntry(op,sig,dc,kind,e) ==
MKQ x
fun := lookupDefiningFunction(op,nsig,ndc)
fun = nil => nil
- fun :=
- fun is ['makeSpadConstant,:.] and
- (fun' := getFunctionReplacement second fun) =>
- return fun'
- cons? fun => first fun
- fun
markOperation getFunctionReplacement fun
++ True if we are interested only in abstract slot, not the actual