From 5b1b6b6bbbb4ca8de22e8c6c606640c43e155657 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 30 Jul 2012 11:26:32 -0700
Subject: [PATCH] sequences: improve change-nth, if nth was successful, set-nth
 can be unsafe.

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

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 78a9847b4e..187db01ec3 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -365,7 +365,7 @@ PRIVATE>
 : glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline
 
 : change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b )
-    [ [ nth ] dip call ] 3keep drop set-nth ; inline
+    [ [ nth ] dip call ] 3keep drop set-nth-unsafe ; inline
 
 : min-length ( seq1 seq2 -- n ) [ length ] bi@ min ; inline
 
@@ -618,8 +618,7 @@ PRIVATE>
 <PRIVATE
 
 : mismatch-unsafe ( n seq1 seq2 -- i )
-    [ 2nth-unsafe = not ] 2curry
-    find-integer ; inline
+    [ 2nth-unsafe = not ] 2curry find-integer ; inline
 
 PRIVATE>