# monitoring.scm -rw-r--r-- 659 bytes View raw
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
;; Remember to remove #:tests? #f from the arguments.
(replace 'check
  ;; We need to handle #:tests?, because --without-tests
  ;; transforms packages to set their #:tests? to #f.
  ;; The lambda* with a star allows us to use additional Guile-specific
  ;; lambda features, such as #:key. Also, we need to use #:allow-other-keys,
  ;; so that Guile doesn't throw an error when the procedure is
  ;; called with unrecognised keys like this:
  ;;   (run-phase #:make-flags make-flags #:tests? tests? ...),
  ;; and we don't want to list all possible keys here.
  (lambda* (#:key tests? #:allow-other-keys)
    (when tests?
      (invoke "./batsignal" "-v"))))