sequences: add index-of-last

[factor.git] / extra / gap-buffer / gap-buffer.factor

diff --git a/extra/gap-buffer/gap-buffer.factor b/extra/gap-buffer/gap-buffer.factor
index c4f1cf3d9149e0d56c56731cfcd460dc378ce2df..dc3cd28740935d6002093b2839ac9cb9e6e3bba5 100644 (file)
--- a/extra/gap-buffer/gap-buffer.factor
+++ b/extra/gap-buffer/gap-buffer.factor
@@ -262,7 +262,7 @@ M: sequence insert*
 
 : pop-start ( gb -- elem ) 0 swap pop-elem ;
 
-: pop-end ( gb -- elem ) [ length 1 - ] keep pop-elem ;
+: pop-end ( gb -- elem ) index-of-last pop-elem ;
 
 : rotate-right ( gb -- )
     dup [ pop-end ] keep push-start drop ;