diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 19:49:49 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-23 21:53:39 +0200 |
commit | e041f2d0a140f76165134ca67e2dca309b4a9222 (patch) | |
tree | 2bad07a4ab952d697467f1e4ffbc4f199aebf8b7 | |
parent | Scroll-behavior: smooth for siderbar. (diff) | |
download | calp-e041f2d0a140f76165134ca67e2dca309b4a9222.tar.gz calp-e041f2d0a140f76165134ca67e2dca309b4a9222.tar.xz |
Move repl-start to end of main.
Since everything is properties the repl thread needs to be spawned AFTER
the configuration is loaded.
Diffstat (limited to '')
-rw-r--r-- | module/calp/main.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/calp/main.scm b/module/calp/main.scm index 8efaf5ae..1cbd0f4e 100644 --- a/module/calp/main.scm +++ b/module/calp/main.scm @@ -127,10 +127,6 @@ the same code as <b>ical</b>.</p>") (when stprof (statprof-start)) - (cond [(eqv? #t repl) (repl-start (format #f "~a/calp-~a" - (xdg-runtime-dir) - (getpid)))] - [repl => repl-start]) ;; Load config @@ -192,6 +188,12 @@ the same code as <b>ical</b>.</p>") (when (file-exists? z) (primitive-load z))) + ;; Start repl late, since configuration items are implemented as properties, + ;; meaning that they are thread local (and the repl lives in its own thread). + (cond [(eqv? #t repl) (repl-start (format #f "~a/calp-~a" + (xdg-runtime-dir) + (getpid)))] + [repl => repl-start]) (let ((ropt (ornull (option-ref opts '() '()) '("term")))) |