GNU bug report logs - #32121
Cuirass: add support for multiple inputs

Previous Next

Full log

View this message in rfc822 format

From: Clément Lassieur <clement <at> lassieur.org>
To: 32121 <at> debbugs.gnu.org
Subject: [bug#32121] [PATCH 1/5] base: Compile CHECKOUT in the fiber.
Date: Wed, 11 Jul 2018 01:02:43 +0200

Because it may take time and thus prevent PROCESS-SPECS to run every INTERVAL
seconds.

* src/cuirass/base.scm (process-specs): move the COMPILE invocation inside
SPAWN-FIBER's thunk.  Add log message.
---
 src/cuirass/base.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 9985fd6..de54f72 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl <at> gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe <at> gmail.com>
 ;;; Copyright © 2017 Ricardo Wurmus <rekado <at> elephly.net>
+;;; Copyright © 2018 Clément Lassieur <clement <at> lassieur.org>
 ;;;
 ;;; This file is part of Cuirass.
 ;;;
@@ -631,12 +632,11 @@ procedure is meant to be called at startup."
                ;; Immediately mark COMMIT as being processed so we don't spawn
                ;; a concurrent evaluation of that same commit.
                (db-add-stamp db spec commit)
-
-               (when compile?
-                 (non-blocking (compile checkout)))
-
                (spawn-fiber
                 (lambda ()
+                  (when compile?
+                    (log-message "compiling '~a' with commit ~s" name commit)
+                    (non-blocking (compile checkout)))
                   (guard (c ((evaluation-error? c)
                              (log-message "failed to evaluate spec '~s'"
                                           (evaluation-error-spec-name c))
-- 
2.18.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.