tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

Revert "elf: Remove bundled Guile source."

Browse Source 
This reverts commit 11cf5b2fe4.
This commit is contained in:
Maxim Cournoyer
2025-10-30 16:19:49 +09:00
parent e0148efc7f
commit 9d60fdf6a2
19 changed files with 1076 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/debug-link.scm
View File

@@ -18,6 +18,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-debug-link)
#:use-module (guix elf)
#:use-module (guix build utils)
#:use-module (guix build debug-link)
#:use-module (guix build io)
@@ -32,7 +33,6 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-64)
#:use-module (system vm elf)
#:use-module (rnrs io ports)
#:use-module (ice-9 match))
@@ -69,12 +69,13 @@
(exp (with-imported-modules (source-module-closure
'((guix build io)
(guix build utils)
(guix build debug-link)))
(guix build debug-link)
(guix elf)))
#~(begin
(use-modules (guix build io)
(guix build utils)
(guix build debug-link)
(system vm elf)
(guix elf)
(rnrs io ports))
(define read-elf
@@ -114,12 +115,13 @@
(exp (with-imported-modules (source-module-closure
'((guix build io)
(guix build utils)
(guix build debug-link)))
(guix build debug-link)
(guix elf)))
#~(begin
(use-modules (guix build io)
(guix build utils)
(guix build debug-link)
(system vm elf)
(guix elf)
(rnrs io ports))
(define read-elf

2
tests/gremlin.scm
View File

@@ -19,6 +19,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-gremlin)
#:use-module (guix elf)
#:use-module (guix tests)
#:use-module ((guix utils) #:select (call-with-temporary-directory
target-aarch64?))
@@ -30,7 +31,6 @@
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-64)
#:use-module (system vm elf)
#:use-module (rnrs io ports)
#:use-module (ice-9 popen)
#:use-module (ice-9 rdelim)