From 23a886372abf4a8e7ce0e43153e98c0233b6def1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 21 Oct 2019 22:58:01 -0700 Subject: [PATCH] Fix problems with reporting why an auto property isn't available. The previous approach was not filtering the dependencies right. --- src/runtime/library-database.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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 -- 2.25.1