diff options
| author | Théo Tyburn <theo.tyburn@posteo.net> | 2026-06-03 10:56:10 +0200 |
|---|---|---|
| committer | Nguyễn Gia Phong <cnx@loang.net> | 2026-08-31 11:00:19 +0900 |
| commit | c62ebcd02c2eb190ab5dc157475ef4a93a1c7581 (patch) | |
| tree | f178f262874978ac0be45e5499db5cc2d63248fe /gnu/packages/ld-wrapper.in | |
| parent | 30cb1f541eb99b0fbbec1f8f29796151103c5f2b (diff) | |
doc: Move Commentary above module definition.
Merges: https://codeberg.org/guix/guix/pulls/9052
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop>
Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>
Diffstat (limited to 'gnu/packages/ld-wrapper.in')
| -rw-r--r-- | gnu/packages/ld-wrapper.in | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/packages/ld-wrapper.in b/gnu/packages/ld-wrapper.in index c9bb235bca5..61d65b262d9 100644 --- a/gnu/packages/ld-wrapper.in +++ b/gnu/packages/ld-wrapper.in | |||
| @@ -39,12 +39,6 @@ exec @GUILE@ -c "(load-compiled \"@SELF@.go\") ($main (command-line))" "$@" | |||
| 39 | ;;; You should have received a copy of the GNU General Public License | 39 | ;;; You should have received a copy of the GNU General Public License |
| 40 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 40 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 41 | 41 | ||
| 42 | (define-module (gnu build-support ld-wrapper) | ||
| 43 | #:use-module (srfi srfi-1) | ||
| 44 | #:use-module (ice-9 match) | ||
| 45 | #:autoload (ice-9 rdelim) (read-delimited) | ||
| 46 | #:export (ld-wrapper)) | ||
| 47 | |||
| 48 | ;;; Commentary: | 42 | ;;; Commentary: |
| 49 | ;;; | 43 | ;;; |
| 50 | ;;; This is a wrapper for the linker. Its purpose is to inspect the -L and | 44 | ;;; This is a wrapper for the linker. Its purpose is to inspect the -L and |
| @@ -70,6 +64,12 @@ exec @GUILE@ -c "(load-compiled \"@SELF@.go\") ($main (command-line))" "$@" | |||
| 70 | ;;; | 64 | ;;; |
| 71 | ;;; Code: | 65 | ;;; Code: |
| 72 | 66 | ||
| 67 | (define-module (gnu build-support ld-wrapper) | ||
| 68 | #:use-module (srfi srfi-1) | ||
| 69 | #:use-module (ice-9 match) | ||
| 70 | #:autoload (ice-9 rdelim) (read-delimited) | ||
| 71 | #:export (ld-wrapper)) | ||
| 72 | |||
| 73 | (define %real-ld | 73 | (define %real-ld |
| 74 | ;; Name of the linker that we wrap. | 74 | ;; Name of the linker that we wrap. |
| 75 | "@LD@") | 75 | "@LD@") |
