farkup: fix check-url reversed comparison

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 4a2f176a3a11666806bbebb2ca4d2eed1d77cc61..69103ddec88fe29fde08e7b01bb1ffef46160aea 100644 (file)
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -212,7 +212,7 @@ CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
         { [ dup empty? ] [ drop invalid-url f ] }
         { [ dup [ 127 > ] any? ] [ drop invalid-url f ] }
         { [ dup first "/\\" member? ] [ drop invalid-url f ] }
-        { [ CHAR: : over member? ] [ dup absolute-url? [ drop invalid-url f ] [ t ] if ] }
+        { [ CHAR: : over member? ] [ dup absolute-url? [ t ] [ drop invalid-url f ] if ] }
         [ relative-link-prefix get prepend "" like url-encode f ]
     } cond ;