zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fixed osx link

Browse source
This commit is contained in:
Mustafa 2014-06-12 09:19:16 -07:00
parent 48ea5077c8
commit bea7c74a2b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
oregano/system.rkt
View file

@ -9,7 +9,7 @@
(define (get-scsynth-path/osx) (define (get-scsynth-path/osx)
(define path1 "/Applications/SuperCollider/SuperCollider/SuperCollider.app/Contents/Resources/scsynth") (define path1 "/Applications/SuperCollider/SuperCollider.app/Contents/Resources/scsynth")
(define path2 "/Volumes/SuperCollider/SuperCollider/SuperCollider.app/Contents/Resources/scsynth") (define path2 "/Volumes/SuperCollider/SuperCollider/SuperCollider.app/Contents/Resources/scsynth")
(cond [(file-exists? path1) path1] (cond [(file-exists? path1) path1]
[(file-exists? path2) path2] [(file-exists? path2) path2]
@ -24,7 +24,7 @@
(begin (begin
(display "Starting SuperCollider...") (display "Starting SuperCollider...")
(process "./start_server_linux.sh") (process "./start_server_linux.sh")
(sleep 0.5) (sleep 1)
(if (sc-running/unix?) (if (sc-running/unix?)
(display "OK\n") (display "OK\n")
(display "Error\n"))))) (display "Error\n")))))
@ -51,4 +51,4 @@
('windows 1) ('windows 1)
(else 1))) (else 1)))
(run-super-collider) (run-super-collider)