Updating code for make and fry changes

[factor.git] / extra / backtrack / backtrack.factor

diff --git a/extra/backtrack/backtrack.factor b/extra/backtrack/backtrack.factor
index df397025f60f9399971fb1efcc1a60a8b5afce9e..9bef16d609c6871a73e779403835719d945a9cc2 100755 (executable)
--- a/extra/backtrack/backtrack.factor
+++ b/extra/backtrack/backtrack.factor
@@ -20,9 +20,9 @@ M: amb-failure summary drop "Backtracking failure" ;
     [ fail ] unless ;\r
 \r
 MACRO: checkpoint ( quot -- quot' )\r
-    '[ failure get ,\r
-       '[ '[ failure set , continue ] callcc0\r
-          , failure set @ ] callcc0 ] ;\r
+    '[ failure get _\r
+       '[ '[ failure set _ continue ] callcc0\r
+          _ failure set @ ] callcc0 ] ;\r
 \r
 : number-from ( from -- from+n )\r
     [ 1 + number-from ] checkpoint ;\r
@@ -42,7 +42,7 @@ MACRO: unsafe-amb ( seq -- quot )
     dup length 1 =\r
     [ first 1quotation ]\r
     [ [ first ] [ rest ] bi\r
-      '[ , [ drop , unsafe-amb ] checkpoint ] ] if ;\r
+      '[ _ [ drop _ unsafe-amb ] checkpoint ] ] if ;\r
 \r
 PRIVATE> \r
 \r
@@ -55,7 +55,7 @@ PRIVATE>
 \r
 MACRO: amb-execute ( seq -- quot )\r
     [ length 1 - ] [ <enum> [ 1quotation ] assoc-map ] bi\r
-    '[ , 0 unsafe-number-from-to nip , case ] ;\r
+    '[ _ 0 unsafe-number-from-to nip _ case ] ;\r
 \r
 : if-amb ( true false -- )\r
     [\r