From e4e099feca0d6725b6614c2acdbae7f1dab261fb Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 13 Jul 2015 11:35:56 +0200 Subject: substitute: Remove unneeded conditionals. * guix/scripts/substitute.scm (guix-substitute): Remove unneeded (if cache ...) forms since CACHE is always true (it's a promise.) --- guix/scripts/substitute.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'guix/scripts') diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 0baba91981..54491b99a5 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -800,9 +800,7 @@ (define (valid? obj) (("have" paths ..1) ;; Return the subset of PATHS available in CACHE. (let ((substitutable - (if cache - (lookup-narinfos cache paths) - '()))) + (lookup-narinfos cache paths))) (for-each (lambda (narinfo) (format #t "~a~%" (narinfo-path narinfo))) (filter valid? substitutable)) @@ -810,9 +808,7 @@ (define (valid? obj) (("info" paths ..1) ;; Reply info about PATHS if it's in CACHE. (let ((substitutable - (if cache - (lookup-narinfos cache paths) - '()))) + (lookup-narinfos cache paths))) (for-each (lambda (narinfo) (format #t "~a\n~a\n~a\n" (narinfo-path narinfo) -- cgit v1.2.3