summaryrefslogtreecommitdiff
path: root/xml-rpc-lolevel.scm
diff options
context:
space:
mode:
Diffstat (limited to 'xml-rpc-lolevel.scm')
-rw-r--r--xml-rpc-lolevel.scm7
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)