added a descriptive error message when sc is not running
This commit is contained in:
parent
f8f0df7b85
commit
8a6d97dc50
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue