From b244fd5723c6c7951c36a89744240f04eec8c795 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 24 May 2008 08:21:17 +0000
Subject: 	* interp/define.boot (compDefineFunctor1): Robustify. 	*
 hyper/parse-types.c (htperror): Fix thinko.

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

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 5a2cb24e..959f313e 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -442,12 +442,10 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
     target:= first signature'
     $functorTarget:= target
     $e:= giveFormalParametersValues(argl,$e)
-    [ds,.,$e]:= compMakeCategoryObject(target,$e) or
---+ copy needed since slot1 is reset; compMake.. can return a cached vector
-      sayBrightly '"   cannot produce category object:"
-      pp target
-      return nil
+    [ds,.,$e]:= compMakeCategoryObject(target,$e) or return
+       stackAndThrow('"   cannot produce category object: %1pb",[target])
     $domainShell:= COPY_-SEQ ds
+--+ copy needed since slot1 is reset; compMake.. can return a cached vector
     $attributesName:local := INTERN STRCONC(PNAME $op,'";attributes")
     attributeList := disallowNilAttribute ds.2 --see below under "loadTimeAlist"
 --+ 7 lines for $NRT follow
-- 
cgit v1.2.3