From 527dbb981e87ca70d3f425b965b08d3b3420198a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 15 Jun 2020 01:05:31 +0200 Subject: Work on parser. --- module/vcomponent/parse/types.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/parse/types.scm') 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)) -- cgit v1.2.3