From 31e59f209874af25166748d570eb0bff14384427 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 28 Sep 2007 17:06:16 -0400
Subject: [PATCH] check-slice inline

---
 core/sequences/sequences.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 1a8e5c9561..a31c869f24 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -194,7 +194,7 @@ TUPLE: slice-error reason ;
 : check-slice ( from to seq -- from to seq )
     pick 0 < [ "start < 0" slice-error ] when
     dup length pick < [ "end > sequence" slice-error ] when
-    pick pick > [ "start > end" slice-error ] when ;
+    pick pick > [ "start > end" slice-error ] when ; inline
 
 : <slice> ( from to seq -- slice )
     dup slice? [ collapse-slice ] when