Dus...

audio-errors.rkt

@@ -42,7 +42,6 @@
 
 
 (define (raise-audio-error* code source line message . args)
-  (displayln (format "raise-audio-error*: code=~a source=~a line=~a message=~a args=~a" code source line message args))
   (let* ((msg (apply format (cons message args)))
          (src* (file-name-from-path (build-path source)))
          (msg* (format "~a at ~a, line ~a" msg src* line)))
@@ -57,15 +56,6 @@
     ((_ code message ...)
      (let ((src (syntax-source stx))
            (line (syntax-line stx)))
-      #`(displayln code)
-      #`(displayln (list message ...))
-      #`(displayln '#,src)
-      #`(displayln '#,line)
        #`(raise-audio-error* code '#,src '#,line message ...)))))
 
-(define (test x)
-  (if (> x 10)
-      (raise-audio-error 'file-notd-found "File not found: ~a" "c:/muziek/a.flac")
-      #t))
-
 

audio-player.rkt

@@ -70,7 +70,6 @@
               (<= p n))))
 
 (define (is-return? retval sym)
-  ;(displayln retval)
   (if (list? retval)
       (if (null? retval)
           #f
@@ -83,12 +82,10 @@
   )
 
 (define (to-ret-value ret)
-  (displayln ret)
   (if (list? ret)
       (if (null? ret)
           (raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
           (let ((r (car ret)))
-            (displayln ret)
             (if (eq? r 'error)
               (let ((msg (cadr ret))
                     (code (caddr ret)))
@@ -269,11 +266,6 @@
   (syntax-rules ()
     ((_ handle cmd args ...)
      (let ((rv ((audio-play-rpc handle) cmd args ...)))
-        (displayln rv)
-        (displayln (internal-audio-retval-kind rv))
-        (displayln (internal-audio-retval-code rv))
-        (displayln (internal-audio-retval-info rv))
-        (displayln (internal-audio-retval-retval rv))
         (if (eq? (internal-audio-retval-kind rv) 'error)
           (raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv))
           (internal-audio-retval-retval rv))))