aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-spec1.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-spec1.boot')
-rw-r--r--src/interp/i-spec1.boot3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index c0ab9bc5..986e0f6b 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -155,10 +155,7 @@ compileADEFBody(t,vars,types,body,computedResultType) ==
--+
$compiledOpNameList := [$mapName]
minivectorName := makeInternalMapMinivectorName(PNAME $mapName)
- $minivectorNames := [[$mapName,:minivectorName],:$minivectorNames]
body := substitute(minivectorName,"$$$",body)
- if $compilingInputFile then
- $minivectorCode := [:$minivectorCode,minivectorName]
setDynamicBinding(minivectorName,LIST2REFVEC $minivector)
-- The use of the three variables $definingMap, $genValue and $compilingMap