From d30277b0dcaf111985b7f196588fbcd436548047 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Mon, 4 Jan 2021 13:47:59 +0100 Subject: Use receive macro --- bin/tagmail | 12 +++++------- 1 file 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 -- cgit v1.2.3