diff options
| -rw-r--r-- | guix/store.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm index b3641ef95d..ca8c0e5ef8 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -135,6 +135,7 @@ built-in-builders references + references/cached references/substitutes references* query-path-info* @@ -1393,6 +1394,13 @@ error if there is no such root." ;; would use a cache associated with the daemon connection instead (XXX). (make-hash-table 100)) +(define (references/cached store item) + "Like 'references', but cache results." + (or (hash-ref %reference-cache item) + (let ((references (references store item))) + (hash-set! %reference-cache item references) + references))) + (define (references/substitutes store items) "Return the list of list of references of ITEMS; the result has the same length as ITEMS. Query substitute information for any item missing from the |