steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleanup

db4
Slava Pestov 2008-02-25 20:09:44 -06:00
parent 84016a36c0
commit fc1cd50800
2 changed files with 2 additions and 2 deletions
extra
io/sockets/impl
smtp

2
extra/io/sockets/impl/impl.factor
View File

@ -53,7 +53,7 @@ M: inet4 make-sockaddr ( inet -- sockaddr )
SYMBOL: port-override
: (port) port-override get [ ] [ ] ?if ;
: (port) port-override get swap or ;
M: inet4 parse-sockaddr
>r dup sockaddr-in-addr <uint> r> inet-ntop

2
extra/smtp/smtp.factor
View File

@ -114,7 +114,7 @@ LOG: smtp-response DEBUG
: extract-email ( recepient -- email )
#! This could be much smarter.
" " last-split1 [ ] [ ] ?if "<" ?head drop ">" ?tail drop ;
" " last-split1 swap or "<" ?head drop ">" ?tail drop ;
: message-id ( -- string )
[