ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

pull: Add a dependency to guile-git.

Browse source 
* build-aux/build-self.scm (guile-git, guile-bytestructures): New
  variables.
  (build): Add guile-git and guile-bytestructures to %load-path and
  %load-compiled-path.
This commit is contained in:
Mathieu Othacehe 2017-06-07 13:44:47 +02:00
parent 6b7b3ca981
commit 19c90e5f69
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 41 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
build-aux/build-self.scm
View file

@ -97,6 +97,13 @@ (define guile-ssh
"guile2.2-ssh" "guile2.2-ssh"
"guile2.0-ssh")) "guile2.0-ssh"))
(define guile-git
(package-for-current-guile "guile-git"
"guile2.0-git"))
(define guile-bytestructures
(package-for-current-guile "guile-bytestructures"
"guile2.0-bytestructures"))
;; The actual build procedure. ;; The actual build procedure.
@ -148,19 +155,42 @@ (define builder
#~(begin #~(begin
(use-modules (guix build pull)) (use-modules (guix build pull))
(let ((json (string-append #$guile-json "/share/guile/site/" (letrec-syntax ((maybe-load-path
#$(effective-version)))) (syntax-rules ()
((_ item rest ...)
(let ((tail (maybe-load-path rest ...)))
(if (string? item)
(cons (string-append item
"/share/guile/site/"
#$(effective-version))
tail)
tail)))
((_)
'()))))
(set! %load-path (set! %load-path
(cons* json (append
(string-append #$guile-ssh "/share/guile/site/" (maybe-load-path #$guile-json #$guile-ssh
#$(effective-version)) #$guile-git #$guile-bytestructures)
%load-path)) %load-path)))
(letrec-syntax ((maybe-load-compiled-path
(syntax-rules ()
((_ item rest ...)
(let ((tail (maybe-load-compiled-path rest ...)))
(if (string? item)
(cons (string-append item
"/lib/guile/"
#$(effective-version)
"/site-ccache")
tail)
tail)))
((_)
'()))))
(set! %load-compiled-path (set! %load-compiled-path
(cons* json (append
(string-append #$guile-ssh "/lib/guile/" (maybe-load-compiled-path #$guile-json #$guile-ssh
#$(effective-version) #$guile-git #$guile-bytestructures)
"/site-ccache") %load-compiled-path)))
%load-compiled-path)))
;; XXX: The 'guile-ssh' package prior to Guix commit 92b7258 was ;; XXX: The 'guile-ssh' package prior to Guix commit 92b7258 was
;; broken: libguile-ssh could not be found. Work around that. ;; broken: libguile-ssh could not be found. Work around that.