From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 26 Apr 2011 20:09:24 +0000 (-0700)
Subject: Oops, for-all?'s arguments are "backward".
X-Git-Tag: 20110609-Gtk~16^2~11^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=911280e83fcee07e37ca4668c103c57ce7904f05;p=mit-scheme.git

Oops, for-all?'s arguments are "backward".
---

diff --git a/src/cref/butils.scm b/src/cref/butils.scm
index f90d0b87b..5110da151 100644
--- a/src/cref/butils.scm
+++ b/src/cref/butils.scm
@@ -70,7 +70,7 @@ USA.
 	    (if entry (cdr entry) '())))
 
 	(for-each (lambda (file.deps)
-		    (if (not (for-all? string? file.deps))
+		    (if (not (for-all? file.deps string?))
 			(error "Bogus dependency:" file.deps)))
 		  dependencies)