Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Forgot to use the addrinfo if supplied.

Browse source
This commit is contained in:
Alex Shinn 2011-08-06 15:22:17 +09:00
parent 50ace689b4
commit 3ff658e3a7
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/net.scm
View file

@ -11,9 +11,11 @@
(define (get-address-info host service . o) (define (get-address-info host service . o)
(%get-address-info host (%get-address-info host
(if (integer? service) (number->string service) service) (if (integer? service) (number->string service) service)
(make-address-info address-family/inet (if (and (pair? o) (car o))
socket-type/stream (car o)
ip-proto/tcp))) (make-address-info address-family/inet
socket-type/stream
ip-proto/tcp))))
;;> Opens a client net connection to @var{host}, a string, ;;> Opens a client net connection to @var{host}, a string,
;;> on port @var{service}, which can be a string such as ;;> on port @var{service}, which can be a string such as
@ -22,7 +24,7 @@
;;> or @scheme{#f} on failure. ;;> or @scheme{#f} on failure.
(define (open-net-io host service) (define (open-net-io host service)
(let lp ((addr (get-address-info host service #f))) (let lp ((addr (get-address-info host service)))
(if (not addr) (if (not addr)
(error "couldn't find address" host service) (error "couldn't find address" host service)
(let ((sock (socket (address-info-family addr) (let ((sock (socket (address-info-family addr)