Removed helper functions from benchmark.backtrack

2008-07-16 07:10:45 -04:00 · 2008-07-16 07:10:45 -04:00 · cac7ffdc3c
parent 2b9df400af
commit cac7ffdc3c
1 changed files with 0 additions and 12 deletions
--- a/extra/benchmark/backtrack/backtrack.factor
+++ b/extra/benchmark/backtrack/backtrack.factor
@ -12,18 +12,6 @@ IN: benchmark.backtrack

 : nop ;

-MACRO: amb-execute ( seq -- quot )
-    [ length ] [ <enum> [ 1quotation ] assoc-map ] bi
-    '[ , amb , case ] ;
-
-: if-amb ( true false -- )
-    [
-        [ { t f } amb ]
-        [ '[ @ require t ] ]
-        [ '[ @ f ] ]
-        tri* if
-    ] with-scope ; inline
-
 : do-something ( a b -- c )
    { + - * } amb-execute ;