From 909a9db0526e8edcce678ad9e5f92cf37794ffd8 Mon Sep 17 00:00:00 2001 From: moritz Date: Fri, 27 Jan 2012 12:49:12 +0100 Subject: remove redundant `and' guard in `and-let*' (thanks Peter) --- henrietta-cache.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/henrietta-cache.scm b/henrietta-cache.scm index 24a00d5..f7914fe 100644 --- a/henrietta-cache.scm +++ b/henrietta-cache.scm @@ -33,7 +33,7 @@ EOF (define (run-hook hook-name . args) (and-let* ((hook (or (alist-ref hook-name hooks) (error "invalid hook" hook-name))) - (hook (and hook (hook)))) + (hook (hook))) (condition-case (apply hook args) (exn () -- cgit v1.2.3