From aefb1d36a95b7f42441cb1a7a657596d17825cbe Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Fri, 10 Sep 2021 23:55:34 +0900 Subject: guile-tojo-tokyo-monitoring: Fix syntax. --- tojo-tokyo/monitoring.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tojo-tokyo/monitoring.scm') diff --git a/tojo-tokyo/monitoring.scm b/tojo-tokyo/monitoring.scm index b7f56bb..b46f0a2 100644 --- a/tojo-tokyo/monitoring.scm +++ b/tojo-tokyo/monitoring.scm @@ -57,7 +57,7 @@ (define-syntax-rule (heartbeat (p? body ...) ...) (let ((heartbeat-cancel? #f)) - (when p? body ... (set! heartbeat-cancel? #t))) ... + (when p? body ... (set! heartbeat-cancel? #t)) ... (unless heartbeat-cancel? - (http-request (current-heartbeat-url)))) + (http-request (current-heartbeat-url))))) (export-syntax heartbeat) -- cgit v1.2.3