diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index f09552ea..b0159c7f 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -650,7 +650,7 @@ NRToptimizeHas u == a='HasCategory => LASSOC(u,$hasCategoryAlist) or $hasCategoryAlist := [[u,:(y:=GENSYM())],:$hasCategoryAlist] y - a="has" => NRToptimizeHas ['HasCategory,first b,MKQ first rest b] + a="has" => NRToptimizeHas ['HasCategory,first b,MKQ second b] a = 'QUOTE => u [NRToptimizeHas a,:NRToptimizeHas b] u |