fix: Forward errors from READ of turtles-with-minibuffer in Emacs 30

This is a follow-up for bd55a59, which caught errors from BODY in Emacs
30. This change catches errors from READ in the same way and re-throws
them once outside the timer.

Author: szermatt

test/turtles-test.el

@@ -1224,6 +1224,11 @@
        (read-from-minibuffer "Prompt: ")
      :keys "ok")))
 
+(turtles-ert-deftest turtles-with-minibuffer-fail-in-read ()
+  :expected-result :failed
+  (turtles-with-minibuffer
+   (should (equal "incorrect" (read-from-minibuffer "Prompt: ")))))
+
 (turtles-ert-deftest turtles-term-truecolor ()
   (skip-unless (>= emacs-major-version 29))
   ;; Truecolor in term.el became available in Emacs 29.1. Before that,

turtles.el

@@ -987,8 +987,13 @@ to return."
                       (run-with-timer
                        0 nil
                        (lambda ()
-                         (throw 'turtles-with-minibuffer-return
-                                (cons 'read (funcall readfunc))))))
+                         (let ((result (list 'read nil nil)))
+                           (if (>= emacs-major-version 30)
+                               (condition-case-unless-debug err
+                                   (setf (nth 1 result) (funcall readfunc))
+                                 (t (setf (nth 2 result) err)))
+                             (setf (nth 1 result) (funcall readfunc)))
+                         (throw 'turtles-with-minibuffer-return result)))))
                 (setq body-timer
                       (run-with-timer
                        0 nil
@@ -1002,9 +1007,11 @@ to return."
                           bodyfunclist))))
                 (sleep-for timeout)
                 (error "Timed out"))
-            (`(read . ,result)
+            (`(read ,result ,err)
              ;; The read section has ended. The body might not have
              ;; run fully.
+             (when err
+               (signal (car err) (cdr err)))
              (unless body-started
                ;; The body didn't have a chance to start. This is very
                ;; suspicious.