Updating code for make and fry changes

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

diff --git a/basis/stack-checker/inlining/inlining.factor b/basis/stack-checker/inlining/inlining.factor
index 07ff016b2da62e5b9e71b4716aa3d787a4ef7fb9..7847fdfdcf194d4db13e226e53c205dcd814d917 100644 (file)
--- a/basis/stack-checker/inlining/inlining.factor
+++ b/basis/stack-checker/inlining/inlining.factor
@@ -130,13 +130,13 @@ SYMBOL: enter-out
 : adjust-stack-effect ( effect -- effect' )
     [ in>> ] [ out>> ] bi
     meta-d get length pick length [-]
-    object <repetition> '[ , prepend ] bi@
+    object <repetition> '[ _ prepend ] bi@
     <effect> ;
 
 : call-recursive-inline-word ( word -- )
     dup "recursive" word-prop [
         [ required-stack-effect adjust-stack-effect ] [ ] [ recursive-label ] tri
-        [ 2nip check-call ] [ nip '[ , #call-recursive, ] consume/produce ] 3bi
+        [ 2nip check-call ] [ nip '[ _ #call-recursive, ] consume/produce ] 3bi
     ] [ undeclared-recursion-error inference-error ] if ;
 
 : inline-word ( word -- )