stack-checker: implement stack-effect for quotations

diff --git a/basis/stack-checker/stack-checker.factor b/basis/stack-checker/stack-checker.factor
index d3d1e4e66d5e89c382f004fa2e007678d86e0488..59b42644ce682e699f07514d0d81f237051aaa42 100644 (file)
--- a/basis/stack-checker/stack-checker.factor
+++ b/basis/stack-checker/stack-checker.factor
@@ -14,3 +14,5 @@ IN: stack-checker
 : infer. ( quot -- )
     ! Safe to call from inference transforms.
     infer effect>string print ;
+
+M: quotation stack-effect infer ;