Fix missing call to loop in buffer-layout-visible?

diff --git a/src/edwin/curren.scm b/src/edwin/curren.scm
index 44332a0ed195dff27b8d99ffcf40af8e72279dd6..1b478f1e06e2b7502c6a07a5a78a0901c0141388 100644 (file)
--- a/src/edwin/curren.scm
+++ b/src/edwin/curren.scm
@@ -614,7 +614,7 @@ The buffer is guaranteed to be selected at that time."
                         (there-exists? (buffer-windows buffer)
                           (lambda (window)
                             (eq? (window-screen window) screen))))))
-            (weak-cdr buffers)))))
+            (loop (weak-cdr buffers))))))
 
 (define setting-up-buffer-layout? #f)
 (define buffer-layout-key (list 'BUFFER-LAYOUT))