From 07d18f39cc8c547e4ea893b18d5a5dbc755e0287 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 1 Nov 2012 01:35:00 +0100 Subject: 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 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'." -- cgit v1.2.3