Split arguments and binary.

2023-05-19 19:46:47 +02:00 · 2023-05-19 19:46:47 +02:00 · 3088aa7703
commit 3088aa7703
parent 3b086a0f30
1 changed files with 2 additions and 1 deletions
--- a/src/mailman.scm
+++ b/src/mailman.scm
@ -150,7 +150,8 @@
   (print "Add " email " to " listname ".")
   (let ((result
 	  (mailman-send/recv
-	   (list "add_members" "-r" "-" listname)
+	   "add_members"
+	   (list "-r" "-" listname)
 	   (sprintf "<<<\"~A\"" email))))
     (let loop ((lines result))
       (when (not (null? lines))