aboutsummaryrefslogtreecommitdiff
path: root/src/interp/wi2.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-03-04 07:47:36 +0000
committerdos-reis <gdr@axiomatics.org>2010-03-04 07:47:36 +0000
commit5c643bf0dce03bf61ead5b95c27de845ac242680 (patch)
treebbfc41a53872a179105e843f32ce7fe74fe55083 /src/interp/wi2.boot
parent89122c246b751bba715be67884000a0ef236975d (diff)
downloadopen-axiom-5c643bf0dce03bf61ead5b95c27de845ac242680.tar.gz
* interp/c-util.boot (quoteMinimally): New.
(registerFunctionReplacement): Likewise. * interp/define.boot (spadCompileOrSetq): Use it. * interp/g-opt.boot (optSpecialCall): Likewise. * interp/nruncomp.boot (optDeltaEntry): Likewise. * interp/spad.lisp (|knownEqualPred|): Likewise. * interp/wi2.boot (optDeltaEntry): Likewise.
Diffstat (limited to 'src/interp/wi2.boot')
-rw-r--r--src/interp/wi2.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index b4e4c7f5..c2d4289e 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -691,7 +691,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) ==
hehe fn
[op] -----------> return just the op here
-- ['XLAM,'ignore,MKQ SPADCALL fn]
- GETL(compileTimeBindingOf first fn,'SPADreplace)
+ getFunctionReplacement compileTimeBindingOf first fn
genDeltaEntry opMmPair ==
--called from compApplyModemap