From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 13 Jun 2011 23:07:02 +0000 (-0700)
Subject: Fix missing call to loop in buffer-layout-visible?
X-Git-Tag: release-9.1.0~22^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7638d5aea81ad7f6797351cdf8bb09ab74a4f041;p=mit-scheme.git

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

diff --git a/src/edwin/curren.scm b/src/edwin/curren.scm
index 44332a0ed..1b478f1e0 100644
--- 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))