diff options
| author | Peter Bex <peter@more-magic.net> | 2011-06-09 23:15:54 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2011-06-09 23:15:54 +0200 |
| commit | ddccf2f5f8c12c3c9686d0ecdbfe5b8e1a0997c4 (patch) | |
| tree | 169d1e650f8596a319a852bfdb73466af9f7f48f | |
| parent | ac75f3de9f4c0e0b1beca43fd9c710eea99696bb (diff) | |
| download | smsmatrix-ddccf2f5f8c12c3c9686d0ecdbfe5b8e1a0997c4.tar.gz | |
Be consistent... "incoming-only?:" is ugly as hell for a keyword
| -rw-r--r-- | smsmatrix.scm | 4 |
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 |