aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nruncomp.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r--src/interp/nruncomp.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index ffe06c58..a96e2345 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -557,7 +557,7 @@ reverseCondlist cl ==
NRTsetVector4a(sig,form,cond) ==
sig = '$ =>
domainList :=
- [optimize COPY comp(d,$EmptyMode,$e).expr or d
+ [simplifyVMForm 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]