[elpa] externals/stream 89f61bf 33/36: * packages/stream/stream.el (stream--force): Small fix (Bug#37888).

[Stefan Monnier]

branch: externals/stream
commit 89f61bff7cd04cec0978b9bf6a9601d43bca7c78
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    * packages/stream/stream.el (stream--force): Small fix (Bug#37888).
---
 stream.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/stream.el b/stream.el
index 9f73e8b..f5d7cdd 100644
--- a/stream.el
+++ b/stream.el
@@ -86,8 +86,9 @@ That value is the one passed to `stream-make'."
    ((eq (car-safe stream) stream--evald-identifier)
     (cdr stream))
    ((eq (car-safe stream) stream--fresh-identifier)
-    (setf (car stream) stream--evald-identifier)
-    (setf (cdr stream) (funcall (cdr stream))))
+    (prog1 (setf (cdr stream) (funcall (cdr stream)))
+      ;; identifier is only updated when forcing didn't exit nonlocally
+      (setf (car stream) stream--evald-identifier)))
    (t (signal 'wrong-type-argument (list 'streamp stream)))))
 
 (defmacro stream-cons (first rest)