X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fstack-checker%2Fstack-checker.factor;h=09cdc08b256b8ada7355705a70226a3f83b9dca8;hp=3dc9f198ca1155d5983a72eeb3fabe4a1c163d77;hb=a7b1d00035d69dbd6c098be1fa82b916cb896d58;hpb=4984d1766c441d1dc2fa74f4f1f5ec794556c045

diff --git a/basis/stack-checker/stack-checker.factor b/basis/stack-checker/stack-checker.factor
index 3dc9f198ca..09cdc08b25 100644
--- a/basis/stack-checker/stack-checker.factor
+++ b/basis/stack-checker/stack-checker.factor
@@ -9,7 +9,9 @@ stack-checker.visitor.dummy ;
 IN: stack-checker
 
 : infer ( quot -- effect )
-    [ infer-quot-here ] with-infer drop ;
+    dup callable?
+    [ [ infer-quot-here ] with-infer drop ]
+    [ drop ( -- x ) ] if ;
 
 : infer. ( quot -- )
     ! Safe to call from inference transforms.