From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Oct 2019 05:58:01 +0000 (-0700)
Subject: Fix problems with reporting why an auto property isn't available.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~26
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=23a886372abf4a8e7ce0e43153e98c0233b6def1;p=mit-scheme.git

Fix problems with reporting why an auto property isn't available.

The previous approach was not filtering the dependencies right.
---

diff --git a/src/runtime/library-database.scm b/src/runtime/library-database.scm
index 2c71c93d3..1a4d81ca5 100644
--- a/src/runtime/library-database.scm
+++ b/src/runtime/library-database.scm
@@ -221,12 +221,13 @@ USA.
 	       (library 'has? key))
 	     (auto-deps auto))
       (list "guard expr")
-      (map (lambda (key)
-	     (let ((auto* (automatic-property key)))
-	       (if auto*
-		   (cons key (auto-unready-deps auto* library))
-		   key)))
-	   (auto-deps auto))))
+      (filter-map (lambda (key)
+		    (and (not (library 'has? key))
+			 (let ((auto* (automatic-property key)))
+			   (if auto*
+			       (cons key (auto-unready-deps auto* library))
+			       key))))
+		  (auto-deps auto))))
 
 (define (run-auto auto library)
   (let ((runner