[elpa] externals/async 328bca51db: Avoid when-let incompatible with older emacs (#172)

[ELPA Syncer]

branch: externals/async
commit 328bca51db1afd6dffd553ff2cbdab2a16b8d7d0
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Avoid when-let incompatible with older emacs (#172)
---
 async.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/async.el b/async.el
index ad76c27ac1..ad8a7c4485 100644
--- a/async.el
+++ b/async.el
@@ -238,12 +238,13 @@ marker position to the end of this next line."
                 ;; of this line since there won't be anything
                 ;; interesting.
                 (while (setq msg (read (current-buffer)))
-                  (when-let ((msg-decoded (ignore-errors (base64-decode-string 
msg))))
-                    (setq msg-decoded (car (read-from-string msg-decoded)))
-                    (when (and (listp msg-decoded)
-                               (async-message-p msg-decoded)
-                               async-callback)
-                      (funcall async-callback msg-decoded))))
+                  (let ((msg-decoded (ignore-errors (base64-decode-string 
msg))))
+                    (when msg-decoded
+                      (setq msg-decoded (car (read-from-string msg-decoded)))
+                      (when (and (listp msg-decoded)
+                                 (async-message-p msg-decoded)
+                                 async-callback)
+                        (funcall async-callback msg-decoded)))))
               ;; This is OK, we reached the end of the chunk subprocess sent
               ;; at this time.
               (invalid-read-syntax t)