diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/parse/types.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/module/vcomponent/parse/types.scm b/module/vcomponent/parse/types.scm index 7472b8c2..78efe2ff 100644 --- a/module/vcomponent/parse/types.scm +++ b/module/vcomponent/parse/types.scm @@ -75,7 +75,10 @@ (str '()) (done '())) (if (null? rem) - (cons (list->string str) done) + (let ((final (reverse-list->string str))) + (if (null? done) + final + (cons final done))) (case (car rem) [(#\\) (case (cadr rem) @@ -110,10 +113,10 @@ (define (parse-utc-offset props value) (make-utc-offset (string->symbol (substring value 0 1)) - (number->string (substring value 1 3)) - (number->string (substring value 3 5)) + (string->number (substring value 1 3)) + (string->number (substring value 3 5)) (if (= 7 (string-length value)) - (number->string (substring value 5 7)) + (string->number (substring value 5 7)) 0))) (define type-parsers (make-hash-table)) |