From 8d490e2e4c1babdbf34c28e3c334ba3c8cf16c27 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 12 Jan 2009 09:57:47 +0000
Subject: 	* interp/category.boot: Miscellaneous cleanup. 	*
 interp/compiler.boot: Likewise. 	* interp/define.boot: Likewise. 
 * interp/functor.boot: Likewise. 	* interp/info.boot: Likewise. 	*
 interp/nruncomp.boot: Likewise. 	* interp/wi1.boot: Likewise. 	*
 interp/wi2.boot: Likewise.

---
 src/interp/category.boot | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/src/interp/category.boot b/src/interp/category.boot
index 15fe1efe..dbdf9919 100644
--- a/src/interp/category.boot
+++ b/src/interp/category.boot
@@ -370,8 +370,10 @@ FindFundAncs l ==
 CatEval: %Thing -> %Shell
 CatEval x ==
   REFVECP x => x
-  $InteractiveMode => first compMakeCategoryObject(x,$CategoryFrame)
-  first compMakeCategoryObject(x,$e)
+  e := 
+    $InteractiveMode => $CategoryFrame
+    $e
+  (compMakeCategoryObject(x,e)).expr
  
 --RemovePrinAncs(l,leaves) ==
 --  l=nil => nil
-- 
cgit v1.2.3