block-in-bounds? ( board block -- ? )


Vocabulary
tetris.board

Inputs
boardan object
blockan object


Outputs
?an object


Definition
USING: accessors kernel sequences ;

IN: tetris.board

: block-in-bounds? ( board block -- ? )
[ first swap width>> <iota> bounds-check? ]
[ second swap height>> <iota> bounds-check? ] 2bi and ;