Commits

mor...@twoticketsplease.de  committed c0ef6fe

remove redundant `and' guard in `and-let*' (thanks Peter)

  • Participants
  • Parent commits 973ee92
  • Branches new-release-hook

Comments (0)

Files changed (1)

File henrietta-cache.scm

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