From ecfc24269ea4455ec9c17a8fe5e45023e61fc7c0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 23 Oct 2008 02:58:03 +0000
Subject: Don't write modemap info 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 f44af849..a0ab70db 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -643,7 +643,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
       $lisplibSlot1 := $NRTslot1Info --NIL or set by $NRTmakeSlot1
       $lisplibOperationAlist:= operationAlist
       $lisplibMissingFunctions:= $CheckVectorList
-    evalAndRwriteLispForm('"compilerInfo",
+    rwriteLispForm('"compilerInfo",
        removeZeroOne ['SETQ,'$CategoryFrame,
         ['put,['QUOTE,op'],'
          (QUOTE isFunctor),
-- 
cgit v1.2.3