utils: Remove stuff committed by error.

This was wrongfully committed in df1fab58.

* guix/utils.scm (hash-set-proc, hash-ref*, memoizing-lambda): Remove.

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'."