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 2c71c93d3e67224fcc8c9b0c8586418fd3dcb72c..1a4d81ca5130a42b273d14c2b70fedc524404af8 100644 (file)
--- 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