basis: ERROR: changes.

[factor.git] / basis / delegate / delegate.factor

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 6a18de6c0eba702fb90663184d28b59cc19db69d..1faf570e9714c6655e14ef97001742f531e5cef6 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -38,7 +38,7 @@ M: tuple-class group-words
 
 : check-broadcast-group ( group -- group )
     dup group-words [ first stack-effect out>> empty? ] all?
-    [ broadcast-words-must-have-no-outputs ] unless ;
+    [ throw-broadcast-words-must-have-no-outputs ] unless ;
 
 ! Consultation
 
@@ -160,7 +160,7 @@ ERROR: not-a-generic word ;
 
 : check-generic ( generic -- )
     dup array? [ first ] when
-    dup generic? [ drop ] [ not-a-generic ] if ;
+    dup generic? [ drop ] [ throw-not-a-generic ] if ;
 
 PRIVATE>