16 lines
325 B
Racket
16 lines
325 B
Racket
#lang racket
|
|
|
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
;; 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")))))
|
|
('macosx 1)
|
|
('windows 1)
|
|
(else 1)))
|
|
|