diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 965c851f..ffe06c58 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -557,7 +557,8 @@ reverseCondlist cl == NRTsetVector4a(sig,form,cond) == sig = '$ => domainList := - [optimize COPY KAR comp(d,$EmptyMode,$e) or d for d in $domainShell.4.0] + [optimize COPY comp(d,$EmptyMode,$e).expr or d + for d in $domainShell.4.0] $uncondList := append(domainList,$uncondList) if isCategoryForm(form,$e) then $uncondList := [form,:$uncondList] $uncondList |