Browse Source

utils: Remove stuff committed by error.

This was wrongfully committed in df1fab58.

* guix/utils.scm (hash-set-proc, hash-ref*, memoizing-lambda): Remove.
gn-latest-20200428
Ludovic Courtès 9 years ago
parent
commit
07d18f39cc
  1. 20
      guix/utils.scm

20
guix/utils.scm

@ -589,26 +589,6 @@ FIELD/DEFAULT-VALUE tuples."
(hash-set! cache args results)
(apply values results)))))))
(define-syntax hash-set-proc
(syntax-rules (eq? eqv? equal?)
((_ eq?) hashq-set!)
((_ eqv?) hashv-set!)
((_ equal?) hash-set!)))
(define-syntax hash-ref*
(syntax-rules (eq? eqv? equal?)
((_ table key eq?) (hashq-ref table key))
((_ table key eqv?) (hashv-ref table key))
((_ table key equal?) (hash-ref table key))))
(define-syntax memoizing-lambda
(syntax-rules ()
((_ ((arg type) ...) body ...)
(let ((cache (make-weak-key-hash-table 100)))
(lambda (arg ...)
(or (and (hash-ref* cache)))
)))))
(define (gnu-triplet->nix-system triplet)
"Return the Nix system type corresponding to TRIPLET, a GNU triplet as
returned by `config.guess'."

Loading…
Cancel
Save