steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

boxes: don't check occupied twice.

db4
John Benediktsson 2013-03-21 17:57:03 -07:00
parent 657bef5818
commit b398daf472
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/boxes/boxes.factor
View File

@ -18,11 +18,18 @@ ERROR: box-empty box ;
: check-box ( box -- box ) : check-box ( box -- box )
dup occupied>> [ box-empty ] unless ; inline dup occupied>> [ box-empty ] unless ; inline
<PRIVATE
: box-unsafe> ( box -- value )
[ f ] change-value f >>occupied drop ; inline
PRIVATE>
: box> ( box -- value ) : box> ( box -- value )
check-box [ f ] change-value f >>occupied drop ; inline check-box box-unsafe> ; inline
: ?box ( box -- value/f ? ) : ?box ( box -- value/f ? )
dup occupied>> [ box> t ] [ drop f f ] if ; inline dup occupied>> [ box-unsafe> t ] [ drop f f ] if ; inline
: if-box? ( box quot -- ) : if-box? ( box quot -- )
[ ?box ] dip [ drop ] if ; inline [ ?box ] dip [ drop ] if ; inline