error handling code/msg mixed.

2026-07-07 11:49:10 +02:00
parent 109e8ee3ad
commit 15ef81d30a
1 changed files with 2 additions and 2 deletions
@@ -90,8 +90,8 @@
          (let ((r (car ret)))
            (displayln ret)
            (if (eq? r 'error)
-              (let ((code (cadr ret))
-                    (msg (caddr ret)))
+              (let ((msg (cadr ret))
+                    (code (caddr ret)))
                (err-sound "Got an error: ~a - ~a" code msg)
                (make-internal-audio-retval 'error code msg 'error))
              (make-internal-audio-retval 'retval #f #f r))))