aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/interp/define.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 642906d7..f44af849 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -410,7 +410,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
pairlis:= [[a,:v] for a in argl for v in $FormalMapVariableList]
parSignature:= SUBLIS(pairlis,signature')
parForm:= SUBLIS(pairlis,form)
- evalAndRwriteLispForm('"compilerInfo",
+ rwriteLispForm('"compilerInfo",
removeZeroOne ['SETQ,'$CategoryFrame,
['put,['QUOTE,op'],'
(QUOTE isCategory),true,['addModemap,MKQ op',MKQ parForm,