zmq--init-subprocess: Make the eval debuggable by the parent process

nnicandro · May 15, 2023 · 4f31ffa · 4f31ffa
1 parent 8bd03b1
commit 4f31ffa
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/zmq.el b/zmq.el
@@ -234,13 +234,13 @@ debugging purposes."
                       (with-temp-buffer
                         (let ((standard-output (current-buffer)))
                           (backtrace))
-                        (buffer-string))))))
-           (sexp (eval (zmq-subprocess-read)))
-           (wrap-context (= (length (cadr sexp)) 1)))
+                        (buffer-string)))))))
       (condition-case err
-          (if wrap-context
-              (funcall sexp (zmq-current-context))
-            (funcall sexp))
+          (let* ((sexp (eval (zmq-subprocess-read)))
+                 (wrap-context (= (length (cadr sexp)) 1)))
+            (if wrap-context
+                (funcall sexp (zmq-current-context))
+              (funcall sexp)))
         (error
          (zmq-prin1 (cons 'error (list (car err)
                                        (or zmq-backtrace