Move useful functions to utils

1 files changed, 0 insertions, 14 deletions

diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm
index f5f4baa..43c2cf0 100644
--- a/guile/starlet/scanout.scm
+++ b/guile/starlet/scanout.scm
@@ -194,26 +194,12 @@
                                (list new-state)))))
 
 
-(define (msb val)
-  (round-dmx (euclidean-quotient val 256)))
-
-(define (lsb val)
-  (round-dmx (euclidean-remainder val 256)))
-
-
 (define (send-to-ola ola-client universe-buffer-pair)
   (let ((uni (car universe-buffer-pair))
         (buf (cdr universe-buffer-pair)))
   (send-streaming-dmx-data! ola-client uni buf)))
 
 
-(define (ensure-number value irritating)
-  (unless (number? value)
-    (raise-exception (make-exception
-                       (make-exception-with-message "Value is not a number")
-                       (make-exception-with-irritants irritating)))))
-
-
 (define scanout-freq 0)
 (define ola-thread #f)