diff options
| -rwxr-xr-x | bin/tagmail | 12 |
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 |