From 07d18f39cc8c547e4ea893b18d5a5dbc755e0287 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 1 Nov 2012 01:35:00 +0100
Subject: [PATCH] utils: Remove stuff committed by error.
This was wrongfully committed in df1fab58.
* guix/utils.scm (hash-set-proc, hash-ref*, memoizing-lambda): Remove.
---
guix/utils.scm | 20 --------------------
1 file changed, 20 deletions(-)
diff --git a/guix/utils.scm b/guix/utils.scm
index 2c905cafb7c..3e334f9fa65 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -589,26 +589,6 @@ (define (memoize proc)
(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'."
--
GitLab