From 8a6d97dc509cc0c657ee22ea3ae45f2a644bd99a Mon Sep 17 00:00:00 2001 From: Mustafa Date: Tue, 27 May 2014 16:38:19 -0700 Subject: [PATCH] added a descriptive error message when sc is not running --- sosc/transport.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sosc/transport.rkt b/sosc/transport.rkt index 7f8d879..39e6d92 100644 --- a/sosc/transport.rkt +++ b/sosc/transport.rkt @@ -38,7 +38,7 @@ (lambda (fd s) (let ((p (recv fd))) (cond - ((not p) (error "wait" "timed out")) + ((not p) (error "error" "Could not connect to the SuperCollider server")) ((not (string=? (car p) s)) (error "wait" "bad return packet" p s)) (else p)))))