diff options
| -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 () |