Artifact d4d2e05e92209310bfa2c7e82c5676751ca6b569:
- File testrpc/server.scm — part of check-in [7e8ac71fc6] at 2014-03-04 23:58:40 on branch multi-transport — not working but a good time to snapshot (user: matt, size: 300) [annotate] [blame] [check-ins using] [more...]
;;;; server.scm (use rpc) (rpc:publish-procedure! 'foo (lambda (x) (print "foo: " x) #f)) (rpc:publish-procedure! 'fini (lambda () (print "fini") (thread-start! (lambda () (thread-sleep! 3) (print "terminate") (exit))) #f)) ((rpc:make-server (tcp-listen (rpc:default-server-port))) #t)