diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-10 23:41:44 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-09-10 23:43:36 +0900 |
| commit | b2478b55441c1788580866fe706d01257742b990 (patch) | |
| tree | dccfc30e9344857dd44b298d3d77ee7f2c7b99a2 /tojo-tokyo | |
| parent | 99db62631519918663f4754f93ebf6bba7ddd6a8 (diff) | |
guile-tojo-tokyo-monitoring: Fix syntax.v0.1.2
Diffstat (limited to 'tojo-tokyo')
| -rw-r--r-- | tojo-tokyo/monitoring.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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? |