ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Remove stuff committed by error.

Browse source 
This was wrongfully committed in df1fab58.

* guix/utils.scm (hash-set-proc, hash-ref*, memoizing-lambda): Remove.
This commit is contained in:
Ludovic Courtès 2012-11-01 01:35:00 +01:00
parent 97298ffae9
commit 07d18f39cc
1 changed files with 0 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/utils.scm
View file

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