[dev-serveez] additional guile api

[stefan]

Hello,

  Serveez got extended by `guile-api.c'.  Thus you are able to state this 
bit of code:

(define (test-check-request sock)
  (define buffer (svz:sock:receive-buffer sock))
  (display "*** receive-buffer: \n")
  (display (binary->string buffer))
  (display "*** end of receive-buffer\n")
  0
  )

(define sock (svz:sock:connect "127.0.0.1" PROTO_TCP 80))
(svz:sock:check-request sock test-check-request)
(svz:sock:print sock "GET /\r\n\r\n")

Cheers,
        address@hidden