From 5f734659e00cc7120e5be52a426dc748c85fb812 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 23 Oct 2008 01:25:58 +0000
Subject: Don't write modemap infos in main module anymore

---
 src/interp/define.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/define.boot')

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,
-- 
cgit v1.2.3