From b2478b55441c1788580866fe706d01257742b990 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Fri, 10 Sep 2021 23:41:44 +0900
Subject: guile-tojo-tokyo-monitoring: Fix syntax.

---
 configure.ac              | 2 +-
 guix.scm                  | 2 +-
 tojo-tokyo/monitoring.scm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/configure.ac b/configure.ac
index 8dfe068..aedd18d 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,4 +1,4 @@
-AC_INIT([guile-tojo-tokyo-monitoring], [0.1.1])
+AC_INIT([guile-tojo-tokyo-monitoring], [0.1.2])
 AC_CONFIG_SRCDIR([tojo-tokyo/monitoring.scm])
 AC_CONFIG_AUX_DIR([build-aux])
 AM_INIT_AUTOMAKE([-Wall -Werror foreign])
diff --git a/guix.scm b/guix.scm
index 5f4d6d1..de7f96e 100644
--- a/guix.scm
+++ b/guix.scm
@@ -29,7 +29,7 @@
 (define guile-tojo-tokyo-monitoring
   (package
     (name "guile-tojo-tokyo-monitoring")
-    (version "0.1.1")
+    (version "0.1.2")
     (source (string-append (getcwd) "/guile-tojo-tokyo-monitoring-" version ".tar.gz"))
     (build-system gnu-build-system)
     (native-inputs
diff --git a/tojo-tokyo/monitoring.scm b/tojo-tokyo/monitoring.scm
index 7d55dda..b7f56bb 100644
--- a/tojo-tokyo/monitoring.scm
+++ b/tojo-tokyo/monitoring.scm
@@ -55,7 +55,7 @@
                         (string=? (substring fs 0 5) "/dev/"))))
                (df))))
 
-(define-syntax-rule (heartbeat ((p? body ...) ...))
+(define-syntax-rule (heartbeat (p? body ...) ...)
   (let ((heartbeat-cancel? #f))
     (when p? body ... (set! heartbeat-cancel? #t))) ...
     (unless heartbeat-cancel?
-- 
cgit v1.2.3