basis: ERROR: changes.

[factor.git] / basis / match / match.factor

diff --git a/basis/match/match.factor b/basis/match/match.factor
index 489fa83a38845e97b72d76bbeef53e0d5626b7f6..b5735b834f885f607815375d48fa4843cae9acae 100644 (file)
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -51,7 +51,7 @@ M: no-match-cond summary drop "Fall-through in match-cond" ;
 
 MACRO: match-cond ( assoc -- quot )
     <reversed>
-    dup ?first callable? [ unclip ] [ [ no-match-cond ] ] if
+    dup ?first callable? [ unclip ] [ [ throw-no-match-cond ] ] if
     [
         first2
         [ [ dupd match ] curry ] dip