From 98902924efc8b63e782267a8225bf7e8d77a1eb6 Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Fri, 1 Aug 2025 14:13:47 +0200
Subject: gnu: scsh: Fix build with gcc-14.

* gnu/packages/shells.scm (scsh)[arguments]<#:phases>{fix-includes}:
New phase.

Change-Id: I98d6d09e73ef4e99cc4a67cf5ec6d6ea56e82338
---
 gnu/packages/shells.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'gnu')

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index a798470387..2bfa4e83af 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -684,7 +684,16 @@ use of experts and novices alike.")
                                              #$(package-version scheme48)
                                              "/rx")))
                   (delete-file-recursively "rx")
-                  (symlink rxpath "rx")))))))
+                  (symlink rxpath "rx"))))
+            (add-after 'replace-rx 'fix-includes
+              (lambda _
+                (with-directory-excursion "c"
+                  (substitute* "syscalls.c"
+                    (("#include <stdlib.h>" all)
+                     (string-append all "\n#include <time.h>")))
+                  (substitute* "tty.c"
+                    (("#include <termios.h>" all)
+                     (string-append all "\n#include <pty.h>")))))))))
       (inputs
        (list scheme48 scheme48-rx))
       (native-inputs
-- 
cgit v1.2.3