mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: chibi-scheme: Fix cross-compilation.

Browse source 
* gnu/packages/scheme.scm (chibi-scheme)[arguments]: Use G-expression.
<#:make-flags>:When cross-compilation, Set CHIBI.
[native-inputs]: When cross-compilation. Add this-package.

Change-Id: I424854d77e575f2e2aab8a5a9d32ef628c9db953
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Zheng Junjie 2024-12-30 15:57:33 +08:00 committed by Ludovic Courtès
parent 24a12aeb91
commit c560a14378
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/scheme.scm
View file

@ -25,6 +25,7 @@
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2024 Skylar Hill <stellarskylark@posteo.net>
;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -607,14 +608,24 @@ (define-public chibi-scheme
(base32 "02zq35hdbi03rmmamx6ml4ihsigdl4mmbf6d9ysazv8ciiln5v4b"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure)) ; no configure script
#:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "PREFIX=" out)
(string-append "CC=" ,(cc-for-target))
(string-append "LDFLAGS=-Wl,-rpath=" out "/lib")))
#:test-target "test"))
(list #:phases
#~(modify-phases %standard-phases
(delete 'configure)) ; no configure script
#:make-flags
#~(list
#$@(if
(%current-target-system)
#~((string-append
"CHIBI=" #+(this-package-native-input "chibi-scheme")
"/bin/chibi-scheme"))
#~())
(string-append "PREFIX=" #$output)
(string-append "CC=" #$(cc-for-target))
(string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
#:test-target "test"))
(native-inputs (if (%current-target-system)
(list this-package)
(list)))
(synopsis "Small embeddable Scheme implementation")
(description
"Chibi-Scheme is a very small library with no external dependencies