01/02: syscalls: set-thread-name, thread-name: Fix thinko.

[guix-commits]

janneke pushed a commit to branch master
in repository guix.

commit ab9e30039d9312285ea3f4ed43f81c9c2c0dae08
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Mon Jun 8 16:49:03 2020 +0200

    syscalls: set-thread-name, thread-name: Fix thinko.
    
    * guix/build/syscalls.scm (set-thread-name, thread-name): Oops, fix thinko.
---
 guix/build/syscalls.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 549346c..85c1c45 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 "")))
 
 
 ;;;