diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 01:35:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-01 01:35:00 +0100 |
| commit | 07d18f39cc8c547e4ea893b18d5a5dbc755e0287 (patch) | |
| tree | cf407582633bbfe7128fae6930680d26bb01a4dc | |
| parent | 97298ffae9fef6260bc812fffb01972736bc0ab4 (diff) | |
| download | patches-07d18f39cc8c547e4ea893b18d5a5dbc755e0287.tar patches-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.scm | 20 |
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'." |