From d30277b0dcaf111985b7f196588fbcd436548047 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Mon, 4 Jan 2021 13:47:59 +0100
Subject: Use receive macro

---
 bin/tagmail | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/tagmail b/bin/tagmail
index bd58d40..5857c6f 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -22,6 +22,7 @@
  (ice-9 ports)
  (ice-9 rdelim)
  (ice-9 regex)
+ (ice-9 receive)
  (mail-tools)
  (srfi srfi-1)
  (system ffi-help-rt)
@@ -136,13 +137,10 @@
          (port (with-input-from-port (car p2c)
                  (lambda ()
                    (open-input-pipe cmd)))))
-    (call-with-values
-        (lambda ()
-          (proc (cdr p2c) port))
-      (lambda vals
-        (close-port (cdr p2c))
-        (close-pipe port)
-        (apply values vals)))))
+    (receive vals (proc (cdr p2c) port)
+      (close-port (cdr p2c))
+      (close-pipe port)
+      (apply values vals))))
 
 (define (tag-spam options ffi-db query-str)
   (call-with-pipe
-- 
cgit v1.2.3