From d46b5387d506941bb3254098ead070a73e33f3a2 Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Sat, 9 Aug 2008 22:33:58 -0400
Subject: [PATCH] backtrack: Added cut-amb

---
 extra/backtrack/backtrack.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/backtrack/backtrack.factor b/extra/backtrack/backtrack.factor
index 3c1a794121..db2c50173c 100755
--- a/extra/backtrack/backtrack.factor
+++ b/extra/backtrack/backtrack.factor
@@ -66,3 +66,5 @@ MACRO: amb-execute ( seq -- quot )
         tri* if
     ] with-scope ; inline
 
+: cut-amb ( -- )
+    f failure set ;
-- 
2.34.1