[no subject]

[Mathieu Othacehe]

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,