added a descriptive error message when sc is not running

This commit is contained in:
Mustafa 2014-05-27 16:38:19 -07:00
parent f8f0df7b85
commit 8a6d97dc50

View file

@ -38,7 +38,7 @@
(lambda (fd s) (lambda (fd s)
(let ((p (recv fd))) (let ((p (recv fd)))
(cond (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)) ((not (string=? (car p) s)) (error "wait" "bad return packet" p s))
(else p))))) (else p)))))