From b782688d71f707a8a263abc69c2745d815c45ec7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 19 Jan 2020 22:42:27 +0100
Subject: syscalls: Pass the right 'throw' arguments in
 'call-with-file-lock/no-wait'.

Reported by Matt Wette <matt.wette@gmail.com>
in <https://bugs.gnu.org/39194>.

* guix/build/syscalls.scm (call-with-file-lock/no-wait): When
re-throwing, pass KEY in addition to ARGS.
---
 guix/build/syscalls.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'guix/build/syscalls.scm')

diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 248d6761fc..ae79a9708f 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
@@ -1140,7 +1140,7 @@ exception if it's already taken."
                       ;; at this point.
                       (if (= ENOSYS (system-error-errno (cons key args)))
                           #f
-                          (apply throw args)))
+                          (apply throw key args)))
                     (_ (apply throw key args)))))))
     (dynamic-wind
       (lambda ()
-- 
cgit v1.2.3