[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[shepherd] 01/02: system: Support compilation on the Hurd.
From: |
Ludovic Courtès |
Subject: |
[shepherd] 01/02: system: Support compilation on the Hurd. |
Date: |
Sat, 7 Mar 2020 16:04:05 -0500 (EST) |
civodul pushed a commit to branch master
in repository shepherd.
commit 232331369fe2a0495c7c777e11eecabee6257b3f
Author: Jan Nieuwenhuizen <address@hidden>
AuthorDate: Sat Mar 7 22:01:23 2020 +0100
system: Support compilation on the Hurd.
* modules/shepherd/system.scm.in (prctl): Wrap 'dynamic-func' call in
'false-if-exception'.
Co-authored-by: Ludovic Courtès <address@hidden>
---
modules/shepherd/system.scm.in | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/modules/shepherd/system.scm.in b/modules/shepherd/system.scm.in
index 769404a..0b2cc9d 100644
--- a/modules/shepherd/system.scm.in
+++ b/modules/shepherd/system.scm.in
@@ -1,6 +1,7 @@
;; system.scm -- Low-level operating system interface.
;; Copyright (C) 2013, 2014, 2016, 2018 Ludovic Courtès <address@hidden>
;; Copyright (C) 2018 Carlo Zancanaro <address@hidden>
+;; Copyright (C) 2020 Jan (janneke) Nieuwenhuizen <address@hidden>
;;
;; This file is part of the GNU Shepherd.
;;
@@ -145,7 +146,7 @@ ctrlaltdel(8) and see kernel/reboot.c in Linux."
(define PR_SET_CHILD_SUBREAPER @PR_SET_CHILD_SUBREAPER@)
(define prctl
- (if (dynamic-func "prctl" (dynamic-link))
+ (if (false-if-exception (dynamic-func "prctl" (dynamic-link)))
(let ((proc (syscall->procedure long "prctl" (list int int))))
(lambda (process operation)
"Perform an operation on the given process"