[ 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