Merge branch 'master' of git://factorcode.org/git/jamesnvc

[factor.git] / basis / validators / validators.factor

diff --git a/basis/validators/validators.factor b/basis/validators/validators.factor
index 755c9f9111380d47799586e3a0caf344cc0ce4bc..04c85cd6db602fc48ebdad30602c7b534ff249d8 100644 (file)
--- a/basis/validators/validators.factor
+++ b/basis/validators/validators.factor
@@ -72,8 +72,8 @@ IN: validators
 
 : v-one-line ( str -- str )
     v-required
-    dup "\r\n" intersect empty?
-    [ "must be a single line" throw ] unless ;
+    dup "\r\n" intersects?
+    [ "must be a single line" throw ] when ;
 
 : v-one-word ( str -- str )
     v-required