From 909a9db0526e8edcce678ad9e5f92cf37794ffd8 Mon Sep 17 00:00:00 2001
From: moritz <moritz@twoticketsplease.de>
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(-)

(limited to 'henrietta-cache.scm')

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