diff options
author | moritz <moritz@twoticketsplease.de> | 2012-01-27 12:49:12 +0100 |
---|---|---|
committer | moritz <moritz@twoticketsplease.de> | 2012-01-27 12:49:12 +0100 |
commit | 909a9db0526e8edcce678ad9e5f92cf37794ffd8 (patch) | |
tree | db3d17e25fcea8e6ab0059d7e5fca7120122f408 | |
parent | 3ff72a728b850698eec5b204b74896ce14cca096 (diff) | |
download | henrietta-cache-909a9db0526e8edcce678ad9e5f92cf37794ffd8.tar.gz |
remove redundant `and' guard in `and-let*' (thanks Peter)
-rw-r--r-- | henrietta-cache.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |