aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-01 01:35:00 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-01 01:35:00 +0100
commit07d18f39cc8c547e4ea893b18d5a5dbc755e0287 (patch)
treecf407582633bbfe7128fae6930680d26bb01a4dc
parent97298ffae9fef6260bc812fffb01972736bc0ab4 (diff)
downloadguix-07d18f39cc8c547e4ea893b18d5a5dbc755e0287.tar
guix-07d18f39cc8c547e4ea893b18d5a5dbc755e0287.tar.gz
utils: Remove stuff committed by error.
This was wrongfully committed in df1fab58. * guix/utils.scm (hash-set-proc, hash-ref*, memoizing-lambda): Remove.
-rw-r--r--guix/utils.scm20
1 files changed, 0 insertions, 20 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index 2c905cafb7..3e334f9fa6 100644
--- a/guix/utils.scm
+++ b/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'."