aboutsummaryrefslogtreecommitdiffstats
path: root/bin/tagmail
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2021-01-04 13:47:59 +0100
committerÓscar Nájera <hi@oscarnajera.com>2021-01-04 13:47:59 +0100
commitd30277b0dcaf111985b7f196588fbcd436548047 (patch)
tree6758d6b279238b3caf5db04ef912d3cf080f8277 /bin/tagmail
parentf82c1391f230e353dcfce0831fb8ed2f8ade46d1 (diff)
downloaddotfiles-d30277b0dcaf111985b7f196588fbcd436548047.tar.gz
dotfiles-d30277b0dcaf111985b7f196588fbcd436548047.tar.bz2
dotfiles-d30277b0dcaf111985b7f196588fbcd436548047.zip
Use receive macro
Diffstat (limited to 'bin/tagmail')
-rwxr-xr-xbin/tagmail12
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