From 164c8a240d8df380975521564b65cf381b630313 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 15 May 2013 23:39:33 +0000
Subject: 	* interp/compiler.boot (comp2): Leave categories alone.

---
 src/interp/compiler.boot | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 3e951499..25f6f1b0 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -158,12 +158,13 @@ compNoStacking1(x,m,e,$compStack) ==
   nil
 
 comp2(x,m,e) ==
-  [y,m',e]:= comp3(x,m,e) or return nil
+  [y,m',e] := T := comp3(x,m,e) or return nil
+  T.mode = $Category => T
   --if cons? y and isDomainForm(y,e) then e := addDomain(x,e)
         --line commented out to prevent adding derived domain forms
   m~=m' and isDomainForm(m',e) => [y,m',addDomain(m',e)]
         --isDomainForm test needed to prevent error while compiling Ring
-  [y,m',e]
+  T
 
 comp3(x,m,$e) ==
   --returns a Triple or %else nil to signalcan't do'
-- 
cgit v1.2.3