diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-22 00:13:46 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-22 00:13:46 +0100 |
commit | 28c831d261ddc010f083e7c834e48d93b1783327 (patch) | |
tree | fa260a6833792e37d7a9987a99c2418e593b97e1 /module/output/html.scm | |
parent | Add bettyr vcomponent record printer. (diff) | |
download | calp-28c831d261ddc010f083e7c834e48d93b1783327.tar.gz calp-28c831d261ddc010f083e7c834e48d93b1783327.tar.xz |
Experiments with multithreading.
Diffstat (limited to 'module/output/html.scm')
-rw-r--r-- | module/output/html.scm | 2 |
1 files changed, 2 insertions, 0 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")))) |