[no subject]

[Ludovic Courtès]

branch: master
commit 5fad16df0fa69b478658c1dabac8abfb2a5b20a5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Jan 9 17:50:44 2024 +0100

    store: ‘process-build-log’ no longer loses state.
    
    Previously it would periodically return *unspecified*.
    
    * src/cuirass/store.scm (process-build-log)[process-line]: Change ‘when’
    to ‘if’.
---
 src/cuirass/store.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/store.scm b/src/cuirass/store.scm
index f3661cb..0479134 100644
--- a/src/cuirass/store.scm
+++ b/src/cuirass/store.scm
@@ -119,10 +119,11 @@ context."
   "Read from PORT the build log, calling PROC for each build event like 'fold'
 does.  Return the result of the last call to PROC."
   (define (process-line line state)
-    (when (string-prefix? "@ " line)
-      (match (string-tokenize (string-drop line 2))
-        (((= string->symbol event-name) args ...)
-         (proc (cons event-name args) state)))))
+    (if (string-prefix? "@ " line)
+        (match (string-tokenize (string-drop line 2))
+          (((= string->symbol event-name) args ...)
+           (proc (cons event-name args) state)))
+        state))
 
   (let loop ((state seed))
     (match (read-line port)