Updating code for make and fry changes

[factor.git] / basis / stack-checker / branches / branches.factor

diff --git a/basis/stack-checker/branches/branches.factor b/basis/stack-checker/branches/branches.factor
index 651b8d162695d335a86707f3335c8bd125a4a52f..511dcc6bbd2b3b95694911990e81cde8ed736e45 100644 (file)
--- a/basis/stack-checker/branches/branches.factor
+++ b/basis/stack-checker/branches/branches.factor
@@ -17,12 +17,12 @@ SYMBOL: +bottom+
 : pad-with-bottom ( seq -- newseq )
     dup empty? [
         dup [ length ] map supremum
-        '[ , +bottom+ pad-left ] map
+        '[ _ +bottom+ pad-left ] map
     ] unless ;
 
 : phi-inputs ( max-d-in pairs -- newseq )
     dup empty? [ nip ] [
-        swap '[ [ , ] dip first2 unify-inputs ] map
+        swap '[ [ _ ] dip first2 unify-inputs ] map
         pad-with-bottom
     ] if ;
 
@@ -50,7 +50,7 @@ SYMBOL: quotations
     ] if-empty ;
 
 : branch-variable ( seq symbol -- seq )
-    '[ [ , ] dip at ] map ;
+    '[ [ _ ] dip at ] map ;
 
 : active-variable ( seq symbol -- seq )
     [ [ terminated? over at [ drop f ] when ] map ] dip