steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

backtrack: Added cut-amb

db4
William Schlieper 2008-08-09 22:33:58 -04:00
parent 8c7cca072f
commit d46b5387d5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/backtrack/backtrack.factor
View File

@ -66,3 +66,5 @@ MACRO: amb-execute ( seq -- quot )
tri* if tri* if
] with-scope ; inline ] with-scope ; inline
: cut-amb ( -- )
f failure set ;