me/guix
Archived
1
0
Fork 0
Code Activity

gnu: scm: Fix build.

Browse source 
* gnu/packages/scheme.scm (scm)[arguments]: Add trailing slashes for library
paths in build and post-install phases.

Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
This commit is contained in:
Morgan Smith 2022-01-21 19:42:24 -05:00 • committed by Oleg Pykhalov
parent 2f51d374b8
commit c26cc96da2
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/packages/scheme.scm
View file

@ -17,6 +17,7 @@
;;; Copyright © 2021 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2021 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com> ;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -621,7 +622,7 @@ utility functions for all standard Scheme implementations.")
(replace 'build (replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(setenv "SCHEME_LIBRARY_PATH" (setenv "SCHEME_LIBRARY_PATH"
(search-input-directory inputs "lib/slib")) (search-input-directory inputs "lib/slib/"))
(invoke "make" "scmlit" "CC=gcc") (invoke "make" "scmlit" "CC=gcc")
(invoke "make" "all"))) (invoke "make" "all")))
(add-after 'install 'post-install (add-after 'install 'post-install
@ -631,7 +632,7 @@ utility functions for all standard Scheme implementations.")
(delete-file req) (delete-file req)
(format (open req (logior O_WRONLY O_CREAT)) (format (open req (logior O_WRONLY O_CREAT))
"(define (library-vicinity) ~s)\n" "(define (library-vicinity) ~s)\n"
(search-input-directory inputs "lib/slib")) (search-input-directory inputs "lib/slib/"))
;; We must generate the slibcat file. ;; We must generate the slibcat file.
(invoke (string-append out "/bin/scm") (invoke (string-append out "/bin/scm")