From cac7ffdc3c89b864c345e2fee42c2df44c4fab8e Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Wed, 16 Jul 2008 07:10:45 -0400
Subject: [PATCH] Removed helper functions from benchmark.backtrack

---
 extra/benchmark/backtrack/backtrack.factor | 12 ------------
 1 file changed, 12 deletions(-)
 mode change 100644 => 100755 extra/benchmark/backtrack/backtrack.factor

diff --git a/extra/benchmark/backtrack/backtrack.factor b/extra/benchmark/backtrack/backtrack.factor
old mode 100644
new mode 100755
index e9a5ad0ed8..5d011b5d36
--- 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 ;