[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Fri, 12 Mar 2021 11:33:54 -0500 (EST) |
branch: master
commit 7b18a15bfed04ad84b1e91ec667a6eb674658d16
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Mar 12 17:33:38 2021 +0100
Only start the notification thread in the main program.
---
bin/cuirass.in | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/bin/cuirass.in b/bin/cuirass.in
index f3209d3..8d911bb 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -145,8 +145,6 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0"
"$@"
(run-fibers
(lambda ()
(with-database
- (parameterize (((@@ (fibers internal) current-fiber) #f))
- (start-notification-thread))
(and specfile
(for-each db-add-or-update-specification
(read-specifications specfile)))
@@ -175,6 +173,9 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0"
"$@"
(sleep 600))))))
(begin
+ (parameterize (((@@ (fibers internal)
+ current-fiber) #f))
+ (start-notification-thread))
(clear-build-queue)
;; If Cuirass was stopped during an evaluation,