Updating code for make and fry changes

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

diff --git a/basis/stack-checker/backend/backend.factor b/basis/stack-checker/backend/backend.factor
index f4cd2c4a8e3892fe611c02a84d90109faf2b55db..aa280b96b6ca516463db730465ce8463db49a502 100755 (executable)
--- a/basis/stack-checker/backend/backend.factor
+++ b/basis/stack-checker/backend/backend.factor
@@ -70,7 +70,7 @@ M: object apply-object push-literal ;
     2array recursive-state get swap prefix infer-quot ;
 
 : time-bomb ( error -- )
-    '[ , throw ] recursive-state get infer-quot ;
+    '[ _ throw ] recursive-state get infer-quot ;
 
 : bad-call ( -- )
     "call must be given a callable" time-bomb ;
@@ -165,7 +165,7 @@ M: object apply-object push-literal ;
     ] maybe-cannot-infer ;
 
 : apply-word/effect ( word effect -- )
-    swap '[ , #call, ] consume/produce ;
+    swap '[ _ #call, ] consume/produce ;
 
 : required-stack-effect ( word -- effect )
     dup stack-effect [ ] [ \ missing-effect inference-error ] ?if ;