aboutsummaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-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