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

[factor.git] / extra / backtrack / backtrack.factor

diff --git a/extra/backtrack/backtrack.factor b/extra/backtrack/backtrack.factor
index 7dc686ea242a1446c9ff18977767583e3bcaa7f8..a87a031e001f7b079df934d94da8f3729e282364 100644 (file)
--- a/extra/backtrack/backtrack.factor
+++ b/extra/backtrack/backtrack.factor
@@ -13,7 +13,7 @@ ERROR: amb-failure ;
 M: amb-failure summary drop "Backtracking failure" ;
 
 : fail ( -- )
-    failure get [ continue ] [ throw-amb-failure ] if* ;
+    failure get [ continue ] [ amb-failure ] if* ;
 
 : must-be-true ( ? -- )
     [ fail ] unless ;