diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index dc884bc7..7b260fd9 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -237,7 +237,7 @@ upAlgExtension t == eq2AlgExtension eq == -- transforms "a=b" to a-b for processing - eq is [op,:l] and VECP op and (getUnname op='equation) => + eq is [op,:l] and vector? op and (getUnname op='equation) => [mkAtreeNode "-",:l] eq @@ -931,7 +931,7 @@ mkIterZippedFun(indexList,funBody,zipType,$localVars) == subVecNodes(new,old,form) == atom form => - (VECP form) and (form.0 = old) => new + (vector? form) and (form.0 = old) => new form [subVecNodes(new,old,first form), :subVecNodes(new,old,rest form)] |