aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-05-24 08:21:17 +0000
committerdos-reis <gdr@axiomatics.org>2008-05-24 08:21:17 +0000
commitb244fd5723c6c7951c36a89744240f04eec8c795 (patch)
treef547c5d880d378fbc56463f7ac23b750fc2a4345 /src/interp
parent914063b53f350130e3fff005e8dba054eb8cca7c (diff)
downloadopen-axiom-b244fd5723c6c7951c36a89744240f04eec8c795.tar.gz
* interp/define.boot (compDefineFunctor1): Robustify.
* hyper/parse-types.c (htperror): Fix thinko.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/define.boot8
1 files changed, 3 insertions, 5 deletions
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