From a96dbac109e95cab66934e98c27e0d148a9b98fd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 29 May 2008 05:45:10 +0000
Subject: 	* interp/i-analy.boot (conceptualType): Only Mode, Domain, and
 	Category are conceptually abstract. 	*
 testsuite/interpreter/category.input: Add a testcase.

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

(limited to 'src/interp')

diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index cfd483e5..8bf457d8 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -623,13 +623,13 @@ sayIntelligentMessageAboutOpAvailability(opName, nArgs) ==
   nil
 
 
-++ Returns the `conceptual' type of `type', e.g., the type type in
+++ Returns the `conceptual' type of `type', e.g., the type of type in
 ++ the abstract semantics, not necessarily the one from implementation
 ++ point of view.
 conceptualType: %Thing -> %List
 conceptualType type ==
   isPartialMode type => $Mode
-  member(type,$LangSupportTypes) => $Type
+  member(type,[$Mode,$Domain,$Category]) => $Type
   categoryForm?(type) => $Category
   $Domain
 
-- 
cgit v1.2.3