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

Add 'short' word

db4
Slava Pestov 2008-04-24 14:49:31 -05:00
parent 857ecda0eb
commit 6fa498f5cb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -236,3 +236,6 @@ PRIVATE>
: remove-nth ( seq n -- seq' ) : remove-nth ( seq n -- seq' )
cut-slice 1 tail-slice append ; cut-slice 1 tail-slice append ;
: short ( seq n -- seq n' )
over length min ; inline