syscalls: set-thread-name, thread-name: Fix thinko.

* guix/build/syscalls.scm (set-thread-name, thread-name): Oops, fix thinko.

1 files changed, 2 insertions, 2 deletions

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 549346c5f99..85c1c45f81d 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -1248,12 +1248,12 @@ bytes."
 (define set-thread-name
   (if (string-contains %host-type "linux")
       set-thread-name!/linux
-      (cute const #f)))
+      (const #f)))
 
 (define thread-name
   (if (string-contains %host-type "linux")
       thread-name/linux
-      (cute const "")))
+      (const "")))
 
 
 ;;;