From d37e5192de8f57555b18131a6430c350d43ea0e8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 27 Apr 2012 08:48:57 -0700
Subject: [PATCH] splitting: fixing split1-last.

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

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index b3adad6bd6..b9b4f87b24 100644
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -48,7 +48,7 @@ PRIVATE>
     dupd find drop [ swap [ dup 1 + ] dip snip ] [ f ] if* ; inline
 
 : split1-last ( seq subseq -- before after )
-    [ <reversed> ] bi@ split1 [ reverse! ] bi@
+    [ <reversed> ] bi@ split1 [ reverse ] bi@
     dup [ swap ] when ;
 
 : split1-last-slice ( seq subseq -- before-slice after-slice )