diff options
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index c3813fda..b33f9f20 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -407,9 +407,10 @@ makeCompactDirect(db,u) == $byteVecAcc: local := nil [nam,[addForm,:opList]] := u --pp opList - d := [[op,y] for [op,:items] in opList | y := makeCompactDirect1(db,op,items)] + d := [:[op,y] for [op,:items] in opList + | y := makeCompactDirect1(db,op,items)] dbByteList(db) := [:dbByteList db,:"append"/reverse! $byteVecAcc] - vector("append"/d) + dbOperationTable(db) := vector d makeCompactDirect1(db,op,items) == --NOTES: creates byte codes for ops implemented by the domain |