Updating code for make and fry changes

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

diff --git a/basis/stack-checker/transforms/transforms.factor b/basis/stack-checker/transforms/transforms.factor
index e64795c5dfb5ff0b1ef29d6013b8e2d983496cdf..41c7e2c9729f74655eb9ebe0c074bd371e121252 100755 (executable)
--- a/basis/stack-checker/transforms/transforms.factor
+++ b/basis/stack-checker/transforms/transforms.factor
@@ -19,7 +19,7 @@ IN: stack-checker.transforms
     dup [
         [
             [ drop ] [
-                [ length meta-d get '[ , pop* ] times ]
+                [ length meta-d get '[ _ pop* ] times ]
                 [ #drop, ]
                 bi
             ] bi*
@@ -97,7 +97,7 @@ IN: stack-checker.transforms
     dup tuple-class? [
         dup inlined-dependency depends-on
         [ "boa-check" word-prop ]
-        [ tuple-layout '[ , <tuple-boa> ] ]
+        [ tuple-layout '[ _ <tuple-boa> ] ]
         bi append
     ] [ drop f ] if
 ] 1 define-transform