From d87a1da62f3fefb986c57e063cd1809962d87544 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 8 Jan 2014 10:19:26 -0800
Subject: [PATCH] sequences: change trim-head to not call length unless it
 needs to.

---
 core/sequences/sequences.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 6a1d0a10ee..ea035249d6 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -985,8 +985,8 @@ PRIVATE>
 <PRIVATE
 
 : (trim-head) ( seq quot -- seq n )
-    over [ [ not ] compose find drop ] dip
-    [ length or ] keep swap ; inline
+    over [ [ not ] compose find drop ] dip swap
+    [ dup length ] unless* ; inline
 
 : (trim-tail) ( seq quot -- seq n )
     over [ [ not ] compose find-last drop ?1+ ] dip