error debugging

2026-07-07 10:29:25 +02:00
parent e8e0135dd8
commit a9ad9bed2a
1 changed files with 2 additions and 1 deletions
@@ -87,6 +87,7 @@
      (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 ((code (cadr ret))
                    (msg (caddr ret)))
@@ -267,7 +268,7 @@
  (syntax-rules ()
    ((_ handle cmd args ...)
     (let ((rv ((audio-play-rpc handle) cmd args ...)))
-        (display rv)
+        (displayln 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))))