Added picture kind constants.

2026-06-25 00:01:48 +02:00
parent 2b7b02d344
commit c4e1a78527
2 changed files with 81 additions and 2 deletions
@@ -766,7 +766,7 @@
    (let ((r (FLAC__stream_encoder_init_file enc file #f #f)))
      (set! flac-file file)
      (unless (= r FLAC__StreamEncoderInitStatus-ok)
-        (error 'flac-encoder-init "FLAC encoder init failed with status ~a" r))
+        (error 'flac-encoder-init "FLAC encoder init failed with status ~a, state = ~a" r (FLAC__stream_encoder_get_state enc)))
      #t))

  (define (write buffer size buf-info)