backtrack: Added cut-amb

2008-08-09 22:33:58 -04:00 · 2008-08-09 22:33:58 -04:00 · d46b5387d5
parent 8c7cca072f
commit d46b5387d5
1 changed files with 2 additions and 0 deletions
--- 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 ;