Welcome to the CHICKEN Scheme pasting service

blob unmarshalling added by andyjpb on Wed Sep 12 21:13:49 2012

(define (send-packet socket header content)
 (assert (socket? socket))
 (assert (blob? header))
 (assert (blob? content))
 (assert (= fcgi-header-len (blob-size header)))

 (let ((content-length (blob-size content))
       (padding-length (modulo (+ fcgi-header-length content-length) 8)))
  (assert (< content-length 65535))
  (set-header! header 'content-length content-length)
  (set-header! header 'padding-length padding-length)
  (socket-send-all socket header)
  (socket-send-all socket content)
  (socket-send-all socket 
  )

 )
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which relatively recent Scheme report version does CHICKEN _not_ implement?
Visually impaired? Let me spell it for you (wav file) download WAV