diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index a1f75041..4e0787a2 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -886,7 +886,7 @@ mkOpVec(dom,siglist) == substargs:= [['$,:dom.0],:pairList($FormalMapVariableList,rest dom.0)] oplist:= getConstructorOperationsFromDB opOf dom.0 --new form is (<op> <signature> <slotNumber> <condition> <kind>) - ops:= MAKE_-VEC (#siglist) + ops := newVector #siglist for (opSig:= [op,sig]) in siglist for i in 0.. repeat u:= ASSQ(op,oplist) assoc(sig,u) is [.,n,.,'ELT] => ops.i := dom.n |