comparison examples/sockets/recv.scm @ 1:5df24c91468d

Oh my what a mess.

+(load "sockets.scm")
+(load "filelist.scm")
+(load "models.scm")
+(load "audio.scm")
+
+(define S (make-server))
+(define x (norm (linein (filesource) 512 256)))
+(define s (VVector. "s" 512))
+(expose)
+(define sk (accept S))
+(addtask (send-vec sk x))
+
+(define th2 (RThread.))
+(.addTask th2 (recv-vec sk s)) 
+