aboutsummaryrefslogtreecommitdiff
path: root/guile
diff options
context:
space:
mode:
Diffstat (limited to 'guile')
-rw-r--r--guile/starlet/base.scm35
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))))))