From 8f140402b3a6d94fc0e770b0c731e9ceb2f92c6c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 05:58:05 -0500
Subject: [PATCH] Move short to core

---
 core/sequences/sequences.factor | 2 ++
 extra/sequences/lib/lib.factor  | 3 ---
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 02a7191f0a..2d05d3c2ef 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -206,6 +206,8 @@ M: slice virtual@ [ slice-from + ] [ slice-seq ] bi ;
 
 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> ;
 
 : tail-slice ( seq n -- slice ) (tail) <slice> ;
diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index 56488818ab..3ac60c2ae3 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -234,9 +234,6 @@ PRIVATE>
 : remove-nth ( seq n -- seq' )
     cut-slice rest-slice append ;
 
-: short ( seq n -- seq n' )
-    over length min ; inline
-
 : if-seq ( seq quot1 quot2 -- )
     [ f like ] 2dip if* ; inline