From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 1 Aug 2022 03:21:52 +0000 (-0700)
Subject: sequences.extras: cleanup change-last{-unsafe}
X-Git-Tag: 0.99~1246
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=2ff97b7ca650714798fb71e8cbae4f9c9b06ef53

sequences.extras: cleanup change-last{-unsafe}
---

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 1cc541f163..2d3b67ed14 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -634,10 +634,10 @@ PRIVATE>
     ] if-empty ;
 
 : change-last ( seq quot -- )
-    [ drop length 1 - ] [ change-nth ] 2bi ; inline
+    [ index-of-last ] [ change-nth ] bi* ; inline
 
 : change-last-unsafe ( seq quot -- )
-    [ drop length 1 - ] [ change-nth-unsafe ] 2bi ; inline
+    [ index-of-last ] [ change-nth-unsafe ] bi* ; inline
 
 : replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... )
     over [ length ] 2dip '[ _ dip _ set-nth-unsafe ] each-integer ; inline