diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 01:05:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 01:05:31 +0200 |
commit | 527dbb981e87ca70d3f425b965b08d3b3420198a (patch) | |
tree | db8435256c90024b054eed6211e06fc1f8e9631b /module/vcomponent/parse/types.scm | |
parent | Repaired ability to set config value to #f. (diff) | |
download | calp-527dbb981e87ca70d3f425b965b08d3b3420198a.tar.gz calp-527dbb981e87ca70d3f425b965b08d3b3420198a.tar.xz |
Work on parser.
Diffstat (limited to 'module/vcomponent/parse/types.scm')
-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)) |