From b69e909f13a3484d4b44227d9901a5028ee1f109 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 30 Aug 2013 10:14:38 +0200 Subject: [PATCH] Use `case` instead of `cond` --- racket/collects/pkg/lib.rkt | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt index 089a72c762..de5277e3b3 100644 --- a/racket/collects/pkg/lib.rkt +++ b/racket/collects/pkg/lib.rkt @@ -425,17 +425,17 @@ #:pkg-name pkg-name)])) (define (checksum-for-pkg-source pkg-source type pkg-name given-checksum download-printf) - (cond - [(or (eq? type 'file-url) (eq? type 'dir-url) (eq? type 'github)) - (or (remote-package-checksum `(url ,pkg-source) download-printf pkg-name) - given-checksum)] - [(eq? type 'file) - (define checksum-pth (format "~a.CHECKSUM" pkg-source)) - (or (and (file-exists? checksum-pth) - (file->string checksum-pth)) - (and (file-exists? pkg-source) - (call-with-input-file* pkg-source sha1)))] - [else given-checksum])) + (case type + [(file-url dir-url github) + (or (remote-package-checksum `(url ,pkg-source) download-printf pkg-name) + given-checksum)] + [(file) + (define checksum-pth (format "~a.CHECKSUM" pkg-source)) + (or (and (file-exists? checksum-pth) + (file->string checksum-pth)) + (and (file-exists? pkg-source) + (call-with-input-file* pkg-source sha1)))] + [else given-checksum])) (define (write-file-hash! file new-db) (unless (eq? (pkg-lock-held) 'exclusive)