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

2018-01-22 20:19:57 -08:00 · 2018-01-22 20:19:57 -08:00 · 86ee1d452a
parent 30d9f9e70c
commit 86ee1d452a
1 changed files with 1 additions and 1 deletions
--- 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