~ chicken-core (chicken-5) 48d1fd96b01e2323cc6d6e0988c6a2e495ad557f
commit 48d1fd96b01e2323cc6d6e0988c6a2e495ad557f
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jul 12 17:51:32 2026 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jul 12 17:51:32 2026 +0200
catch exceptions in forked process-execute (see also 801328605663461a43e9f5b1d6e2269c127f42cc)
diff --git a/manual/Acknowledgements b/manual/Acknowledgements
index c5a36c68..261605c9 100644
--- a/manual/Acknowledgements
+++ b/manual/Acknowledgements
@@ -25,7 +25,7 @@ itojun Hagino, Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, Moritz Heidkamp,
William P. Heinemann, Bill Hoffman, Eric Hoffman, Bruce Hoult, Hans Hübner,
Markus Hülsmann, Götz Isenmann, Paulo Jabardo, Wietse Jacobs, David Janssens,
Christian Jäger, Robert Jensen, Matt Jones, Dale Jordan, Valentin Kamyshenko,
-Daishi Kato, Peter Keller, Christian Kellermann, Brad Kind, Ron Kneusel, "Kooda",
+Daishi Kato, Peter Keller, Christian Kellermann, Brad Kind, Stanislav Kljuhhin, Ron Kneusel, "Kooda",
Matthias Köppe, Krysztof Kowalczyk, Andre Kühne, Todd R. Kueny Sr, Goran Krampe,
David Krentzlin, Ben Kurtz, Sebastien Marie, Alice Maz, Michele La Monaca,
Micky Latowicki, Kristian Lein-Mathisen, "LemonBoy", John Lenz,
diff --git a/posixunix.scm b/posixunix.scm
index 665c89e0..107044cb 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1218,7 +1218,11 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
(connect-child loc opipe stdinf chicken.file.posix#fileno/stdin)
(connect-child loc (swapped-ends ipipe) stdoutf chicken.file.posix#fileno/stdout)
(connect-child loc (swapped-ends epipe) stderrf chicken.file.posix#fileno/stderr)
- (chicken.process#process-execute cmd args env)))) ) ) ))
+ (handle-exceptions ex
+ (begin
+ (print-error-message ex ##sys#standard-error)
+ (##core#inline "C_exit_runtime" 126))
+ (chicken.process#process-execute cmd args env)))) ) ) )))
[input-port
(lambda (loc pid cmd pipe stdf stdfd on-close)
(and-let* ([fd (connect-parent loc pipe stdf stdfd)])
Trap