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

Move short to core

db4
Slava Pestov 2008-06-18 05:58:05 -05:00
parent ebb3423e4a
commit 8f140402b3
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences.factor
View File

@ -206,6 +206,8 @@ M: slice virtual@ [ slice-from + ] [ slice-seq ] bi ;
M: slice length dup slice-to swap slice-from - ; M: slice length dup slice-to swap slice-from - ;
: short ( seq n -- seq n' ) over length min ; inline
: head-slice ( seq n -- slice ) (head) <slice> ; : head-slice ( seq n -- slice ) (head) <slice> ;
: tail-slice ( seq n -- slice ) (tail) <slice> ; : tail-slice ( seq n -- slice ) (tail) <slice> ;

3
extra/sequences/lib/lib.factor
View File

@ -234,9 +234,6 @@ PRIVATE>
: remove-nth ( seq n -- seq' ) : remove-nth ( seq n -- seq' )
cut-slice rest-slice append ; cut-slice rest-slice append ;
: short ( seq n -- seq n' )
over length min ; inline
: if-seq ( seq quot1 quot2 -- ) : if-seq ( seq quot1 quot2 -- )
[ f like ] 2dip if* ; inline [ f like ] 2dip if* ; inline