diff src/scheme/sockets.scm @ 1:5df24c91468d

Oh my what a mess.

--- a/src/scheme/sockets.scm	Tue Jan 17 17:50:20 2012 +0000
+++ b/src/scheme/sockets.scm	Fri Apr 05 16:26:00 2019 +0100
@@ -1,9 +1,10 @@
+(load "streams.scm")
+
 (define (make-server) (java.net.ServerSocket. 2000))
 (define (accept s) (display "waiting for connection...\n") (.accept s))
 (define (connect host) (display "connecting...\n") (java.net.Socket. host 2000))
 (define (istream s) (.getInputStream s))
 (define (ostream s) (.getOutputStream s))
-(load "streams.scm")
 
 (define-method (send (socket java.net.Socket) (x Vec))
 	(VecToStream. x (buffer (ostream socket))))