From e3d6188dfd47461fa85eb5804f56192646cca1cf Mon Sep 17 00:00:00 2001
From: Zheng Junjie <zhengjunjie@iscas.ac.cn>
Date: Wed, 22 Jan 2025 11:05:26 +0800
Subject: [PATCH] gnu: adms: Fix build.

Fixes <https://issues.guix.gnu.org/75740>.

* gnu/packages/engineering.scm (adms): Fix build.
[arguments]<#:phases>: Add patch-shebang phase.

Change-Id: I4c3f3ae9777277cc37997bcaa7a7e6258bbd478f
---
 gnu/packages/engineering.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index b0c3b5787ad..5a93227e2a1 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -1744,6 +1744,14 @@ developed at MIT to model electromagnetic systems.")
                (base32
                 "0i37c9k6q1iglmzp9736rrgsnx7sw8xn3djqbbjw29zsyl3pf62c"))))
     (build-system gnu-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'patch-shebang
+                 (lambda _
+                   (substitute* "bootstrap.sh"
+                     (("# !/bin/sh")
+                      (string-append "#!" (which "sh")))))))))
     (native-inputs
      (list autoconf
            automake