Megatest: client.scm at [c9b0f4ffc6]

☰Home Timeline Files Branches Tags Tickets Wiki Login

File testrpc/client.scm artifact eacc9c3c29 part of check-in c9b0f4ffc6

;;;; client.scm
(use rpc posix)

(define call (rpc:procedure 'foo "localhost"))

(do ((i 10 (sub1 i)))
    ((zero? i))
  (print "-> " (call (random 100))))