Add 'short' word

2008-04-24 14:49:31 -05:00 · 2008-04-24 14:49:31 -05:00 · 6fa498f5cb
parent 857ecda0eb
commit 6fa498f5cb
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -236,3 +236,6 @@ PRIVATE>

 : remove-nth ( seq n -- seq' )
    cut-slice 1 tail-slice append ;
+
+: short ( seq n -- seq n' )
+    over length min ; inline