Welcome to the CHICKEN Scheme pasting service
write a byte vector to a tcp-server connection handler added by aranhoide on Thu Nov 28 09:12:47 2013
(use chicken-syntax) (use tcp-server) (use srfi-4) (define v (make-u8vector (* 1024 10) 100)) ((make-tcp-server (tcp-listen 8080) (lambda () (read-line) (write-u8vector v))) #f)