summary refs log tree commit diff
diff options
context:
space:
mode:
authorJan (janneke) Nieuwenhuizen <janneke@gnu.org>2020-06-08 16:49:03 +0200
committerJan Nieuwenhuizen <janneke@gnu.org>2020-06-08 16:49:03 +0200
commitab9e30039d9312285ea3f4ed43f81c9c2c0dae08 (patch)
treea6a9a771ae66d5da2a1c83a107d5f76b425bf599
parent835b3d893fa84efd49ab4dd1a34dd3cbfb8a393d (diff)
downloadguix-ab9e30039d9312285ea3f4ed43f81c9c2c0dae08.tar.gz
syscalls: set-thread-name, thread-name: Fix thinko.
* guix/build/syscalls.scm (set-thread-name, thread-name): Oops, fix thinko.
-rw-r--r--guix/build/syscalls.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 549346c5f9..85c1c45f81 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 "")))
 
 
 ;;;