From 28c831d261ddc010f083e7c834e48d93b1783327 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 22 Jan 2020 00:13:46 +0100
Subject: Experiments with multithreading.

---
 module/vcomponent/parse.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'module/vcomponent/parse.scm')

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)))
-- 
cgit v1.2.3