sequences: add index-of-last

[factor.git] / basis / ini-file / ini-file.factor

diff --git a/basis/ini-file/ini-file.factor b/basis/ini-file/ini-file.factor
index 8254b4059e8b83bd8d3bbd90ef7644d521686656..090c97efe080bf6b857607c23919d3bf858da46e 100644 (file)
--- a/basis/ini-file/ini-file.factor
+++ b/basis/ini-file/ini-file.factor
@@ -68,7 +68,7 @@ IN: ini-file
     [ space? ] trim ;
 
 : unwrap ( str -- str' )
-    1 swap [ length 1 - ] keep subseq ;
+    1 swap index-of-last subseq ;
 
 : uncomment ( str -- str' )
     ";#" [ over index [ head ] when* ] each ;