Use receive macro

1 files changed, 5 insertions, 7 deletions

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