me
/
guix
Archived
1
0
Fork 0
Code

gnu: loko-scheme: Use G-expressions. 

* gnu/packages/loko.scm (loko-scheme)[arguments]: Use G-expressions.
<#:phases>: In 'akku-fixes', replace "(assoc-ref inputs name)" with
"this-package-native-input".
[native-inputs]: Use label-less style.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Zhu Zihao 2022-11-29 18:59:24 +08:00 committed by Ludovic Courtès
parent 9672db290a
commit 1f5241d8d5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 38 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
gnu/packages/loko.scm
View File

@ -41,41 +41,45 @@
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(;; r7rs tests are a work in progress as of 0.7.0. (list
#:tests? #f ;; r7rs tests are a work in progress as of 0.7.0.
#:strip-binaries? #f #:tests? #f
#:make-flags #:strip-binaries? #f
(let ((out (assoc-ref %outputs "out"))) #:make-flags
(list #~(list
(string-append "PREFIX=" out) (string-append "PREFIX=" #$output)
(string-append "GDB_AUTOLOAD_PATH=" out "/share/gdb/auto-load"))) (string-append "GDB_AUTOLOAD_PATH=" #$output "/share/gdb/auto-load"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'akku-fixes (add-before 'build 'akku-fixes
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(delete-file "Akku.lock") (delete-file "Akku.lock")
(substitute* "Akku.manifest" (substitute* "Akku.manifest"
(("\\(depends.*") "(depends)")) (("\\(depends.*") "(depends)"))
(invoke "akku" "install") (invoke "akku" "install")
(let ((dest "./.akku/lib/") (let ((dest "./.akku/lib/")
(source "/share/guile/site/3.0/")) (source "/share/guile/site/3.0/"))
(for-each (for-each
(lambda (name) (lambda (name prefix)
;; Symlink the scheme libraries so that Akku can find them ;; Symlink the scheme libraries so that Akku can find them
(symlink (string-append (assoc-ref inputs name) source name) (symlink (string-append prefix source name)
(string-append dest name))) (string-append dest name)))
'("struct" "laesare" "pfds" "machine-code"))) '("struct" "laesare" "pfds" "machine-code")
(substitute* ".akku/env" (list #$(this-package-native-input "guile-struct-pack")
(("/bin/sh") (which "sh"))) #$(this-package-native-input "guile-laesare")
#t))))) #$(this-package-native-input "guile-pfds")
#$(this-package-native-input "guile-machine-code"))))
(substitute* ".akku/env"
(("/bin/sh") (which "sh")))
#t)))))
(native-inputs (native-inputs
`(("akku" ,akku) (list akku
("chez-scheme" ,(chez-scheme-for-system)) (chez-scheme-for-system)
("struct" ,guile-struct-pack) guile-struct-pack
("laesare" ,guile-laesare) guile-laesare
("pfds" ,guile-pfds) guile-pfds
("machine-code" ,guile-machine-code))) guile-machine-code))
(home-page "https://scheme.fail") (home-page "https://scheme.fail")
(synopsis "Implementation of the algorithmic language Scheme") (synopsis "Implementation of the algorithmic language Scheme")
(description (description