; the 2050 means http requests currently capped at 2 meg ; http://list.cs.brown.edu/pipermail/plt-scheme/2005-August/009414.html (xdef 'socket-accept (lambda (s) (call-with-values (lambda () (tcp-accept s)) (lambda (in out) (list (make-limited-input-port in 100000 #t) out (let-values (((us them) (tcp-addresses out))) them))))))
From ac.scm
©