Delete unused assoc-ref-multiple function

2020-01-10 17:28:12 +00:00 · 2020-01-10 17:28:12 +00:00 · 57cbac891e
commit 57cbac891e
parent c7e3a1bd0b
1 changed files with 0 additions and 8 deletions
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@ -90,14 +90,6 @@
  ;;     (render-html (error-page message))))
  )

-(define (assoc-ref-multiple alist key)
-  (filter-map
-   (match-lambda
-     ((k . value)
-      (and (string=? k key)
-           value)))
-   alist))
-
 (define (render-derivation conn derivation-file-name)
  (let ((derivation (select-derivation-by-file-name conn
                                                    derivation-file-name)))