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)
(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)))))