change ERROR: words from throw-foo back to foo.

[factor.git] / extra / pair-methods / pair-methods.factor

diff --git a/extra/pair-methods/pair-methods.factor b/extra/pair-methods/pair-methods.factor
index a4e0b15b9b2d5a6eb1c7c57d4b32307df9ef11f3..13814015a847a224d8a9e8c4e0cde3a378edb5f9 100644 (file)
--- a/extra/pair-methods/pair-methods.factor
+++ b/extra/pair-methods/pair-methods.factor
@@ -25,7 +25,7 @@ ERROR: no-pair-method a b generic ;
 
 : pair-generic-definition ( word -- def )
     [ sorted-pair-methods [ first2 pair-method-cond ] map ]
-    [ [ throw-no-pair-method ] curry suffix ] bi 1quotation
+    [ [ no-pair-method ] curry suffix ] bi 1quotation
     [ 2dup [ class-of ] compare +gt+ eq? ?swap ] [ cond ] surround ;
 
 : make-pair-generic ( word -- )