From 16636d2429fafcd58c40df7cd994a7e6d6298c41 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 29 Aug 2008 09:25:35 +0000
Subject: 	* interp/lisplib.boot (augModemapsFromDomain1): Move to
 modemap.boot 	(mkEvalableCategoryForm): Move to define.boot

---
 src/interp/modemap.boot | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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

diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot
index 2eafb6ad..e35d7bb6 100644
--- a/src/interp/modemap.boot
+++ b/src/interp/modemap.boot
@@ -240,7 +240,18 @@ augModemapsFromDomain(name,functorForm,e) ==
   if name is ["Union",:dl] then for d in stripUnionTags dl
                          repeat e:= addDomain(d,e)
   augModemapsFromDomain1(name,functorForm,e)
-     --see LISPLIB BOOT
+
+augModemapsFromDomain1(name,functorForm,e) ==
+  GETL(KAR functorForm,"makeFunctionList") =>
+    addConstructorModemaps(name,functorForm,e)
+  atom functorForm and (catform:= getmode(functorForm,e)) =>
+    augModemapsFromCategory(name,name,functorForm,catform,e)
+  mappingForm:= getmodeOrMapping(KAR functorForm,e) =>
+    ["Mapping",categoryForm,:functArgTypes]:= mappingForm
+    catform:= substituteCategoryArguments(rest functorForm,categoryForm)
+    augModemapsFromCategory(name,name,functorForm,catform,e)
+  stackMessage('"%1pb is an unknown mode",[functorForm])
+  e
  
 substituteCategoryArguments(argl,catform) ==
   argl:= substitute("$$","$",argl)
-- 
cgit v1.2.3