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)
|
||||
(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)))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue