diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 20:45:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 20:45:31 +0200 |
| commit | 8a84b5b44ff8d7d6b4e34118f29a1ea7313fea77 (patch) | |
| tree | 077905df068470ee5ae0b96498f7951e7aee5e3e | |
| parent | Remove remnants of late RRULE parser. (diff) | |
| download | calp-8a84b5b44ff8d7d6b4e34118f29a1ea7313fea77.tar.gz calp-8a84b5b44ff8d7d6b4e34118f29a1ea7313fea77.tar.xz | |
Updated type signatures in component.
| -rw-r--r-- | module/vcomponent/parse/component.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 3278af85..690c0698 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -26,7 +26,7 @@ (latitude geo-latitude) (longitude geo-longitude)) -;; port → (list string) +;; port → (list <line>) (define (read-file port) (define fname (port-filename port)) (let loop ((line-number 1) (done '())) @@ -57,7 +57,7 @@ (data get-data) ; (key kv ... value) ) -;; (list <line>) → (list (key kv ... value)) +;; (list <line>) → (list <tokens>) (define (tokenize line-obj) (define line (get-string line-obj)) (define colon-idx (string-index line #\:)) |