summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2011-06-09 23:15:54 +0200
committerPeter Bex <peter@more-magic.net>2011-06-09 23:15:54 +0200
commitddccf2f5f8c12c3c9686d0ecdbfe5b8e1a0997c4 (patch)
tree169d1e650f8596a319a852bfdb73466af9f7f48f
parentac75f3de9f4c0e0b1beca43fd9c710eea99696bb (diff)
downloadsmsmatrix-ddccf2f5f8c12c3c9686d0ecdbfe5b8e1a0997c4.tar.gz
Be consistent... "incoming-only?:" is ugly as hell for a keyword
-rw-r--r--smsmatrix.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/smsmatrix.scm b/smsmatrix.scm
index 77c2441..378ca9e 100644
--- a/smsmatrix.scm
+++ b/smsmatrix.scm
@@ -233,14 +233,14 @@
;; Not really part of the "API" as such since it returns something completely
;; different than =-separated lists of key/value pairs and "email" vs "username"
-(define (call-with-csv-report proc #!key username password limit incoming-only?)
+(define (call-with-csv-report proc #!key username password limit incoming-only)
(let-auth 'csv-report username password
(let* ((request (make-request method: 'POST
uri: (uri-reference csv-report-uri)))
(params `((email . ,username)
(password . ,password)
(limit . ,limit)
- (in . ,(if incoming-only? 1 0)))))
+ (in . ,(if incoming-only 1 0)))))
(call-with-input-request request params proc))))
(define (send-sms recipients message #!key