diff options
| -rw-r--r-- | module/output/html.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/parse.scm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 0f4125ca..394bb476 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -368,6 +368,8 @@ (define-public (html-chunked-main calendars events start) + ;; NOTE Something here isn't thread safe. + ;; TODO make it thread safe (stream-for-each (lambda (pair) (format (current-error-port) "d = ~a~%u = ~a~%" (car pair) (cadr pair)) (let ((fname (format #f "./html/~a.html" (date->string (car pair) "~1")))) diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 309ec85f..c4142910 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -304,7 +304,7 @@ row ~a column ~a ctx = ~a ;; return calendar) (make-vcomponent) - (map (lambda (fname) + ((@ (ice-9 threads) par-map) (lambda (fname) (let ((fullname (/ path fname))) (let ((cal (call-with-input-file fullname parse-calendar))) |