branch: master
commit 2bcd2e8a5fd6b628b0816c6452556d6b83d0d7c1
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
* packages/stream/stream.el (stream--force): Small fix (Bug#37888).
---
packages/stream/stream.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/packages/stream/stream.el b/packages/stream/stream.el
index 9f73e8b..f5d7cdd 100644
--- a/packages/stream/stream.el
+++ b/packages/stream/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)
