diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 14:14:53 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-04 14:14:53 +0100 |
commit | 8be804ad5f9e91befa0d1d5738b242ebc368cf36 (patch) | |
tree | e5e2a9b6331bf79c83e692fdcbb22fd50582fef5 /module/vcomponent/parse.scm | |
parent | Set geiser scheme to guile in main. (diff) | |
download | calp-8be804ad5f9e91befa0d1d5738b242ebc368cf36.tar.gz calp-8be804ad5f9e91befa0d1d5738b242ebc368cf36.tar.xz |
Maybe fixed timezone?
Diffstat (limited to 'module/vcomponent/parse.scm')
-rw-r--r-- | module/vcomponent/parse.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 04a06d54..f862b18a 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -40,7 +40,7 @@ (define (fold-proc ctx c) - ;; First extra character optionall read is to get the \n if our line + ;; First extra character optional read is to get the \n if our line ;; ended with \r\n. Secound read is to get the first character of the ;; next line. The initial \r which might recide in @var{c} is discarded. (let ((pair (cons (if (char=? #\newline (integer->char c)) |