diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2025-10-30 16:19:49 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2025-10-30 16:19:49 +0900 |
| commit | 9d60fdf6a2e482e7d52184521191c14449619aec (patch) | |
| tree | 44117a2d06d583f7378ddec5d475baeceddc7564 /tests/debug-link.scm | |
| parent | e0148efc7f882ba26603897356fa5b8ed4e91455 (diff) | |
Revert "elf: Remove bundled Guile source."
This reverts commit 11cf5b2fe4882f123cd5e9eb385a773703dfe872.
Diffstat (limited to 'tests/debug-link.scm')
| -rw-r--r-- | tests/debug-link.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tests/debug-link.scm b/tests/debug-link.scm index 1ba40cdd4fc..7ccc054a5d9 100644 --- a/tests/debug-link.scm +++ b/tests/debug-link.scm | |||
| @@ -18,6 +18,7 @@ | |||
| 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 19 | 19 | ||
| 20 | (define-module (test-debug-link) | 20 | (define-module (test-debug-link) |
| 21 | #:use-module (guix elf) | ||
| 21 | #:use-module (guix build utils) | 22 | #:use-module (guix build utils) |
| 22 | #:use-module (guix build debug-link) | 23 | #:use-module (guix build debug-link) |
| 23 | #:use-module (guix build io) | 24 | #:use-module (guix build io) |
| @@ -32,7 +33,6 @@ | |||
| 32 | #:use-module (srfi srfi-1) | 33 | #:use-module (srfi srfi-1) |
| 33 | #:use-module (srfi srfi-26) | 34 | #:use-module (srfi srfi-26) |
| 34 | #:use-module (srfi srfi-64) | 35 | #:use-module (srfi srfi-64) |
| 35 | #:use-module (system vm elf) | ||
| 36 | #:use-module (rnrs io ports) | 36 | #:use-module (rnrs io ports) |
| 37 | #:use-module (ice-9 match)) | 37 | #:use-module (ice-9 match)) |
| 38 | 38 | ||
| @@ -69,12 +69,13 @@ | |||
| 69 | (exp (with-imported-modules (source-module-closure | 69 | (exp (with-imported-modules (source-module-closure |
| 70 | '((guix build io) | 70 | '((guix build io) |
| 71 | (guix build utils) | 71 | (guix build utils) |
| 72 | (guix build debug-link))) | 72 | (guix build debug-link) |
| 73 | (guix elf))) | ||
| 73 | #~(begin | 74 | #~(begin |
| 74 | (use-modules (guix build io) | 75 | (use-modules (guix build io) |
| 75 | (guix build utils) | 76 | (guix build utils) |
| 76 | (guix build debug-link) | 77 | (guix build debug-link) |
| 77 | (system vm elf) | 78 | (guix elf) |
| 78 | (rnrs io ports)) | 79 | (rnrs io ports)) |
| 79 | 80 | ||
| 80 | (define read-elf | 81 | (define read-elf |
| @@ -114,12 +115,13 @@ | |||
| 114 | (exp (with-imported-modules (source-module-closure | 115 | (exp (with-imported-modules (source-module-closure |
| 115 | '((guix build io) | 116 | '((guix build io) |
| 116 | (guix build utils) | 117 | (guix build utils) |
| 117 | (guix build debug-link))) | 118 | (guix build debug-link) |
| 119 | (guix elf))) | ||
| 118 | #~(begin | 120 | #~(begin |
| 119 | (use-modules (guix build io) | 121 | (use-modules (guix build io) |
| 120 | (guix build utils) | 122 | (guix build utils) |
| 121 | (guix build debug-link) | 123 | (guix build debug-link) |
| 122 | (system vm elf) | 124 | (guix elf) |
| 123 | (rnrs io ports)) | 125 | (rnrs io ports)) |
| 124 | 126 | ||
| 125 | (define read-elf | 127 | (define read-elf |