(define current-ssc3-client
  (srfi:make-parameter #f))

(define make-ssc3-client
  (lambda (host port)
    (udp:open host port)))

(define ssc3-send
  (lambda (expression)
    (send (current-ssc3-client)
          (list "/eval" (ssc3->sc expression)))))

(define scl-eval
  (lambda (text)
    (send (current-ssc3-client)
          (list "/eval" text))
    (wait (current-ssc3-client)
          "/result")))

(define ssc3-eval
  (lambda (expression)
    (scl-eval (ssc3->sc expression))))