From 4a2a214cb028469af54e20ab0612a530ca59f34f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 28 Oct 2007 00:42:36 -0400 Subject: [PATCH] Another fix --- extra/match/match.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/match/match.factor b/extra/match/match.factor index 0b4b2f1a0d..527d7f2465 100755 --- a/extra/match/match.factor +++ b/extra/match/match.factor @@ -61,4 +61,6 @@ MACRO: match-cond ( assoc -- ) } cond ; : match-replace ( object pattern1 pattern2 -- result ) - -rot match [ replace-patterns ] bind ; + -rot + match [ "Pattern does not match" throw ] unless* + [ replace-patterns ] bind ;