add some more utility words like when-empty

db4
Doug Coleman 2008-08-14 00:21:10 -05:00
parent ec4aabcf31
commit a84404bc0d
1 changed files with 7 additions and 4 deletions

View File

@ -211,8 +211,11 @@ PRIVATE>
: insert-nth ( elt n seq -- seq' ) : insert-nth ( elt n seq -- seq' )
swap cut-slice [ swap 1array ] dip 3append ; swap cut-slice [ swap 1array ] dip 3append ;
: if-seq ( seq quot1 quot2 -- ) : if-seq ( seq quot1 quot2 -- ) [ f like ] 2dip if* ; inline
[ f like ] 2dip if* ; inline
: if-empty ( seq quot1 quot2 -- ) swap if-seq ; inline
: when-empty ( seq quot1 -- ) [ ] if-empty ; inline
: unless-empty ( seq quot1 -- ) [ ] swap if-empty ; inline
: if-empty ( seq quot1 quot2 -- )
swap if-seq ; inline