gnu: scsh: Fix build with gcc-14.

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

Change-Id: I98d6d09e73ef4e99cc4a67cf5ec6d6ea56e82338

1 files changed, 10 insertions, 1 deletions

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index a7984703878..2bfa4e83aff 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