boxes: add stack-effect info to if-box?.

diff --git a/basis/boxes/boxes.factor b/basis/boxes/boxes.factor
index 25f2b963b414cba8cbcb345b628ddf844ad15609..fdf4e966b57fd0f7820c0082dcabee8eeaded837 100644 (file)
--- a/basis/boxes/boxes.factor
+++ b/basis/boxes/boxes.factor
@@ -31,5 +31,5 @@ PRIVATE>
 : ?box ( box -- value/f ? )
     dup occupied>> [ box-unsafe> t ] [ drop f f ] if ; inline
 
-: if-box? ( box quot -- )
+: if-box? ( box quot: ( value -- ) -- )
     [ ?box ] dip [ drop ] if ; inline