factor: words -> split-words, lines -> split-lines, fix errors

[factor.git] / extra / euler / b-rep / io / obj / obj.factor

diff --git a/extra/euler/b-rep/io/obj/obj.factor b/extra/euler/b-rep/io/obj/obj.factor
index 43112da8c8f681ef1db62969bb965e5e535a7fb8..4489228fa4ff2502c3d40693effa3b6709deef79 100644 (file)
--- a/extra/euler/b-rep/io/obj/obj.factor
+++ b/extra/euler/b-rep/io/obj/obj.factor
@@ -53,7 +53,7 @@ PRIVATE>
     dup connect-opposite-edges ;
 
 : parse-vertex ( line -- position )
-    words first3 [ string>number >float ] tri@ 0.0 double-4-boa ;
+    split-words first3 [ string>number >float ] tri@ 0.0 double-4-boa ;
 
 : read-vertex ( line vertices -- )
     [ parse-vertex ] dip push ;
@@ -63,7 +63,7 @@ PRIVATE>
     dup 0 >= [ nip 1 - ] [ [ length ] dip + ] if ;
 
 : parse-face ( line vertices -- vertices )
-    [ words ] dip '[ _ parse-face-index ] map ;
+    [ split-words ] dip '[ _ parse-face-index ] map ;
 
 : read-face ( line vertices faces -- )
     [ parse-face ] dip push ;