diff options
Diffstat (limited to 'xml-rpc-lolevel.scm')
| -rw-r--r-- | xml-rpc-lolevel.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/xml-rpc-lolevel.scm b/xml-rpc-lolevel.scm index b0df44f..5cabf1c 100644 --- a/xml-rpc-lolevel.scm +++ b/xml-rpc-lolevel.scm @@ -57,8 +57,7 @@ xml-rpc-base64->string xml-rpc-base64->u8vector xml-rpc-base64->blob xml-rpc-datetime->vector) -(import chicken scheme) -(use data-structures posix srfi-1 srfi-4 srfi-69 base64 sxpath-lolevel) +(import (chicken base) scheme srfi-1 srfi-4 srfi-69 base64 sxpath-lolevel (chicken time posix) (chicken condition) (chicken string) (chicken blob)) (define (signal-xml-rpc-error code msg . args) (signal @@ -114,8 +113,8 @@ (define xml-rpc-unparsers (make-parameter `((,vector? . ,vector->xml-rpc-array) - (,(conjoin number? exact?) . ,number->xml-rpc-int) - (,number? . ,number->xml-rpc-double) + (,(disjoin flonum? ratnum?) . ,number->xml-rpc-double) + (,integer? . ,number->xml-rpc-int) (,boolean? . ,boolean->xml-rpc-boolean) (,string? . ,->xml-rpc-string) (,symbol? . ,->xml-rpc-string) |