From 043e4c2214bc846f26ef75d389d2d3bcd2bcc20d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marc=20Nieper-Wi=C3=9Fkirchen?= <marc@nieper-wisskirchen.de>
Date: Sat, 29 Aug 2020 10:25:23 +0200
Subject: [PATCH] Fix generator-find

---
 lib/srfi/158.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lib/srfi/158.scm b/lib/srfi/158.scm
index e6a7a628..510fb54d 100644
--- a/lib/srfi/158.scm
+++ b/lib/srfi/158.scm
@@ -486,10 +486,8 @@
 ;; generator-find
 (define (generator-find pred g)
   (let loop ((v (g)))
-   ; A literal interpretation might say it only terminates on #eof if (pred #eof) but I think this makes more sense...
-   (if (or (pred v) (eof-object? v))
-     v
-     (loop (g)))))
+    (and (not (eof-object? v))
+         (if (pred v) v (loop (g))))))
 
 
 ;; generator-count