]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/gadgets/editors/editors.factor
factor: use more split/join words
[factor.git] / basis / ui / gadgets / editors / editors.factor
index a5c4b26524eddc333b61965fb705fa598d4e30a0..29e7bbb0250e8ebc9db3ea278f79bedcb66211a7 100644 (file)
@@ -636,7 +636,7 @@ PRIVATE>
 <PRIVATE
 
 : join-lines ( string -- string' )
-    "\n" split
+    split-lines
     [ rest-slice [ [ blank? ] trim-head-slice ] map! drop ]
     [ but-last-slice [ [ blank? ] trim-tail-slice ] map! drop ]
     [ join-words ]