From a20351b1d5baf265823eeb33ad214a6d421e2789 Mon Sep 17 00:00:00 2001 From: vxtls <187420201+vxtls@users.noreply.github.com> Date: Wed, 18 Mar 2026 22:28:29 -0400 Subject: [PATCH] fix(guile-2.2.4): add fallback WAIT_ANY and LC_* constants in posix.c for bootstrap compatibility --- .../define-missing-posix-constants.patch | 45 +++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 steps-guix/guile-2.2.4/patches/define-missing-posix-constants.patch diff --git a/steps-guix/guile-2.2.4/patches/define-missing-posix-constants.patch b/steps-guix/guile-2.2.4/patches/define-missing-posix-constants.patch new file mode 100644 index 00000000..96db7c44 --- /dev/null +++ b/steps-guix/guile-2.2.4/patches/define-missing-posix-constants.patch @@ -0,0 +1,45 @@ +--- guile-2.2.4/libguile/posix.c ++++ guile-2.2.4/libguile/posix.c +@@ -2356,6 +2356,8 @@ + #endif + #ifdef WAIT_ANY + scm_c_define ("WAIT_ANY", scm_from_int (WAIT_ANY)); ++#else ++ scm_c_define ("WAIT_ANY", scm_from_int (-1)); + #endif + #ifdef WAIT_MYPGRP + scm_c_define ("WAIT_MYPGRP", scm_from_int (WAIT_MYPGRP)); +@@ -2390,21 +2392,33 @@ + #endif + #ifdef LC_PAPER + scm_c_define ("LC_PAPER", scm_from_int (LC_PAPER)); ++#else ++ scm_c_define ("LC_PAPER", scm_from_int (7)); + #endif + #ifdef LC_NAME + scm_c_define ("LC_NAME", scm_from_int (LC_NAME)); ++#else ++ scm_c_define ("LC_NAME", scm_from_int (8)); + #endif + #ifdef LC_ADDRESS + scm_c_define ("LC_ADDRESS", scm_from_int (LC_ADDRESS)); ++#else ++ scm_c_define ("LC_ADDRESS", scm_from_int (9)); + #endif + #ifdef LC_TELEPHONE + scm_c_define ("LC_TELEPHONE", scm_from_int (LC_TELEPHONE)); ++#else ++ scm_c_define ("LC_TELEPHONE", scm_from_int (10)); + #endif + #ifdef LC_MEASUREMENT + scm_c_define ("LC_MEASUREMENT", scm_from_int (LC_MEASUREMENT)); ++#else ++ scm_c_define ("LC_MEASUREMENT", scm_from_int (11)); + #endif + #ifdef LC_IDENTIFICATION + scm_c_define ("LC_IDENTIFICATION", scm_from_int (LC_IDENTIFICATION)); ++#else ++ scm_c_define ("LC_IDENTIFICATION", scm_from_int (12)); + #endif + #ifdef PIPE_BUF + scm_c_define ("PIPE_BUF", scm_from_long (PIPE_BUF));