From d5ae4a00534d3745c3a34aa3de85735857b29ee0 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Tue, 27 May 2014 16:39:21 -0700 Subject: [PATCH] made reset a function with no params --- rsc3/main.rkt | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/rsc3/main.rkt b/rsc3/main.rkt index 23e2324..48f790b 100644 --- a/rsc3/main.rkt +++ b/rsc3/main.rkt @@ -1550,13 +1550,6 @@ (send fd m) (wait fd "/done"))) -;; port -> () -(define reset - (lambda (fd) - (send fd (bundle -1 (list (g-free-all1 0) - clear-sched - (g-new1 1 0 0)))))) - ;; port -> string -> ugen -> () (define send-synth (lambda (fd n u) @@ -1600,6 +1593,16 @@ ;; (socket -> a) -> a (define with-sc3 with-udp-sc3) + +;; port -> () +(define (reset) + (with-sc3 (lambda (fd) + (send fd (bundle -1 (list (g-free-all1 0) + clear-sched + (g-new1 1 0 0))))))) + + + ;; ((socket -> a) -> a) -> (ugen -> ()) (define audition-using (lambda (f)