diff options
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/base.scm | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 54c3806..8f93751 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -470,23 +470,28 @@ pre-existing contents." (scanout-loop ola-uri ola-socket (hirestime) 0)) (scanout-loop ola-uri ola-socket start-time (+ count 1))))) +(define ola-thread #f) (define (start-ola-output) - (let* ((ola-uri (build-uri 'http - #:host "127.0.0.1" - #:port 9090 - #:path "/set_dmx")) - (ola-socket (open-socket-for-uri ola-uri)) - (start-time (hirestime))) - - (begin-thread - (with-exception-handler - (lambda (exn) - (backtrace) - (raise-exception exn)) - (lambda () - (scanout-loop ola-uri ola-socket start-time 0)) - #:unwind? #f)))) + (unless ola-thread + (let* ((ola-uri (build-uri 'http + #:host "127.0.0.1" + #:port 9090 + #:path "/set_dmx")) + (ola-socket (open-socket-for-uri ola-uri)) + (start-time (hirestime))) + + (set! ola-thread + (begin-thread + (with-exception-handler + (lambda (exn) + (display "Error in OLA output thread:\n") + (set! ola-thread #f) + (backtrace) + (raise-exception exn)) + (lambda () + (scanout-loop ola-uri ola-socket start-time 0)) + #:unwind? #f)))))) |