Removing more >r/r> usages

[factor.git] / basis / multiline / multiline.factor

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index ecbe9e668f14f852fcc83a1ea63279924058e21f..64d4b1a041ef0aebf1fc4fdc5e16579845690665 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -28,7 +28,7 @@ PRIVATE>
 : (parse-multiline-string) ( start-index end-text -- end-index )
     lexer get line-text>> [
         2dup start
-        [ rot dupd >r >r swap subseq % r> r> length + ] [
+        [ rot dupd [ swap subseq % ] 2dip length + ] [
             rot tail % "\n" % 0
             lexer get next-line swap (parse-multiline-string)
         ] if*