diff --git a/oregano/system.rkt b/oregano/system.rkt index f4090e2..21bbf42 100644 --- a/oregano/system.rkt +++ b/oregano/system.rkt @@ -7,9 +7,15 @@ ;; run scsynth (define (run-super-collider) (match (system-type 'os) - ('unix (when (not (system "ps -e | grep scsynth > /dev/null")) - (thread (lambda () - (system "./start_server_linux.sh"))))) + ('unix (if (system "ps -e | grep scsynth > /dev/null") + (display "SuperCollider Running\n") + (begin + (display "Starting SuperCollider...") + (process "./start_server_linux.sh") + (sleep 0.3) + (if (system "ps -e | grep scsynth > /dev/null") + (display "OK") + (display "Error"))))) ('macosx 1) ('windows 1) (else 1)))