(use posix)
(use sdl)

(sdl-net-init)

(define x (sdl-net-tcp-open (make-sdl-ip-address 0 0 0 0 4444)))

(if (not x)
    (begin
      (write (sdl-get-error))(newline)
      (exit)))

(let ((sockset (sdl-net-alloc-socket-set 10)))
  (sdl-net-tcp-add-socket! sockset x)
  (do ()
      ((sdl-net-socket-ready? x))
    (write (list 'checked (sdl-net-check-sockets sockset 1000)))
    (newline)))

(define y (sdl-net-tcp-accept x))
(##sys#update-errno)

(write (list x y (sdl-get-error) (errno))) (newline)