diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 71b79c0b..d2730f29 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -54,6 +54,13 @@ $profileCompiler := false ++ $Slot1DataBase := MAKE_-HASHTABLE "ID" +++ +$NRTdeltaList := [] +$NRTdeltaLength := 0 + +++ +$NRTaddForm := nil + -----------------------------NEW buildFunctor CODE----------------------------- NRTaddDeltaCode() == @@ -567,9 +574,7 @@ NRTsetVector4a(sig,form,cond) == NRTmakeSlot1 domainShell == opDirectName := INTERN STRCONC(PNAME first $definition,'";opDirect") - fun := - $NRTmakeCompactDirect => '(function lookupInCompactTable) - '(function lookupInTable) + fun := '(function lookupInCompactTable) [($QuickCode=>'QSETREFV;'SETELT), '$,1, ['LIST,fun,'$,opDirectName]] NRTmakeSlot1Info() == |