ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 11:25:22 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "import: utils: Add hash-ref*."

Browse source 
This reverts commit 8a3b11d1eb.
This commit is contained in:
Mark H Weaver 2019-08-22 14:24:37 -04:00
parent d020821c0b
commit 888e477bf8
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/import/utils.scm
View file

@ -47,7 +47,6 @@ (define-module (guix import utils)
flatten
assoc-ref*
hash-ref*
url-fetch
guix-hash-url
@ -117,15 +116,6 @@ (define (assoc-ref* alist key . rest)
(assoc-ref alist key)
(apply assoc-ref* (assoc-ref alist key) rest)))
(define (hash-ref* hash-table key . rest)
"Return the value for KEY from HASH-TABLE. For each additional key specified,
recursively apply the procedure to the sub-hash-table."
(if (hash-table? hash-table)
(if (null? rest)
(hash-ref hash-table key)
(apply hash-ref* (hash-ref hash-table key) rest))
#f)) ; For consistency with assoc-ref*
(define (url-fetch url file-name)
"Save the contents of URL to FILE-NAME. Return #f on failure."
(parameterize ((current-output-port (current-error-port)))