From ac75f3de9f4c0e0b1beca43fd9c710eea99696bb Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Thu, 9 Jun 2011 22:59:36 +0200 Subject: Map statuscode and timestamp to numbers, for convenience --- smsmatrix.scm | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/smsmatrix.scm b/smsmatrix.scm index fd68fff..77c2441 100644 --- a/smsmatrix.scm +++ b/smsmatrix.scm @@ -225,10 +225,11 @@ (error 'message-status "Sanity check failed: message ID differs from the one requested!" (alist-ref 'id res) message-id)) - (values (string->number (alist-ref 'response res)) ; May be omitted + (values (string->number (alist-ref 'response res eq? "")) ; May be omitted (string->number (alist-ref 'timestamp res)) (alist-ref 'timezone res) - status status-text)))) + (string->number status) + status-text)))) ;; 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" @@ -264,6 +265,14 @@ (error-on-bad-result-code 'send-sms status status-text pin))) res)) - res))) + (map (lambda (entry) + (map (lambda (key/value) + (let ((key (car key/value)) + (value (cdr key/value))) + (case key + ((statuscode timestamp) (cons key (string->number value))) + (else key/value)))) + entry) + res))))) ) \ No newline at end of file -- cgit v1.2.3