me
/
guix
Archived
1
0
Fork 0
Code

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

This reverts commit 8a3b11d1eb.
master
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 @@
flatten
assoc-ref*
hash-ref*
url-fetch
guix-hash-url
@ -117,15 +116,6 @@ recursively apply the procedure to the sub-list."
(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)))