[no subject]

[Mathieu Othacehe]

branch: master
commit 54630d87a167d5c438a25181bc4219b4b4fd5fcc
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Nov 20 18:15:54 2022 +0100

    remote-worker: Fix a typo.
    
    This is a follow-up of: 228b4a4f7263504e73afcf49fd7935e50eb33ce9.
    
    * src/cuirass/scripts/remote-worker.scm (low-disk-space?): Fix a typo.
---
 src/cuirass/scripts/remote-worker.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index 66f9f4a..26825a4 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -295,9 +295,9 @@ command.  REPLY is a procedure that can be used to reply to 
this server."
 
 (define (low-disk-space?)
   "Return true if disk space is low."
-  (or (< (free-disk-space (%store-prefix)) %minimum-disk-space)
+  (or (< (free-disk-space (%store-prefix)) (%minimum-disk-space))
       (< (free-disk-space (or (getenv "TMPDIR") "/tmp"))
-         %minimum-disk-space)))
+         (%minimum-disk-space))))
 
 (define (start-worker wrk serv)
   "Start a worker thread named NAME, reading commands from the DEALER socket