diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 117b5946..65ada6f5 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -303,9 +303,9 @@ NRTaddInner x == builtinConstructor? x.op or x.op is "[||]" => for y in x.args repeat NRTinnerGetLocalIndex y - getConstructorSignature first x is [.,:ml] => - for y in x.args for m in ml | y isnt '$ repeat - isCategoryForm(m,$CategoryFrame) => NRTinnerGetLocalIndex y + cosig := getDualSignatureFromDB x.op => + for y in x.args for t in cosig.source | y isnt '$ and t repeat + NRTinnerGetLocalIndex y keyedSystemError("S2NR0003",[x]) x |