]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/validators/validators.factor
Fix comments to be ! not #!.
[factor.git] / basis / validators / validators.factor
index cee7ccf6e1df8139e10951b4b52f200b8099914b..2ee6c28c53bdad994497fe0144150b42c551b1f0 100644 (file)
@@ -59,7 +59,7 @@ IN: validators
     [ 2drop ] [ drop "invalid " prepend throw ] if ;
 
 : v-email ( str -- str )
-    #! From http://www.regular-expressions.info/email.html
+    ! From http://www.regular-expressions.info/email.html
     320 v-max-length
     "e-mail"
     R' [A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,4}'i