futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: guile-bytestructures: Install sld files.

Browse Source 
* gnu/packages/guile.scm (guile-bytestructures): Build and install sld
  files in r7 repository.

It fixes this kind of errors while using guile-bytestructures:

ice-9/psyntax.scm:3245:33: ice-9/psyntax.scm:3245:33: Syntax error:
/gnu/store/ny9mp091yw51ylv1q59z25z5vdw8bi56-profile/share/guile/site/2.2/bytestructures/guile/base.scm:8:19: include-from-path: file not found in path in subform "bytestructures/r7/base.exports.sld" of (include-from-path "bytestructures/r7/base.exports.sld")
This commit is contained in:
Mathieu Othacehe 2017-05-03 17:10:22 +02:00
parent f4129cdd6a
commit e8e1ace039
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/packages/guile.scm
View File

@ -1471,6 +1471,8 @@ is no support for parsing block and inline level HTML.")
effective)) effective))
(source (assoc-ref %build-inputs "source")) (source (assoc-ref %build-inputs "source"))
(doc (string-append out "/share/doc/scheme-bytestructures")) (doc (string-append out "/share/doc/scheme-bytestructures"))
(sld-files (with-directory-excursion source
(find-files "bytestructures/r7" "\\.exports.sld$")))
(scm-files (filter (lambda (path) (scm-files (filter (lambda (path)
(not (string-prefix? "bytestructures/r7" path))) (not (string-prefix? "bytestructures/r7" path)))
(with-directory-excursion source (with-directory-excursion source
@ -1502,7 +1504,7 @@ is no support for parsing block and inline level HTML.")
file)) file))
(error (format #f "Failed to compile ~s to ~s!" (error (format #f "Failed to compile ~s to ~s!"
file go-file))))) file go-file)))))
scm-files) (append sld-files scm-files))
;; Also copy over the README. ;; Also copy over the README.
(install-file "README.md" doc) (install-file "README.md" doc)