nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: guile-wisp: Simplify arguments and fix indentation. 

* gnu/packages/guile.scm (guile-wisp)[arguments]: Slightly simplify and fix
indentation.
master
Ricardo Wurmus 2019-01-23 12:26:48 +01:00
parent ef841dca91
commit a38fa63b4b
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 29 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
gnu/packages/guile.scm
View File

@ -1303,49 +1303,40 @@ key-value cache and store.")
(guix build utils)
(ice-9 rdelim)
(ice-9 popen))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'substitute-before-config
(lambda* (#:key inputs #:allow-other-keys)
(let ((bash (assoc-ref inputs "bash")))
;; Puts together some test files with /bin/bash hardcoded
(substitute* "Makefile.in"
(("/usr/bin/env bash")
(string-append bash "/bin/bash"))
(("\\$\\(GUILE_EFFECTIVE_VERSION\\)/site")
"site/$(GUILE_EFFECTIVE_VERSION)")) ;use the right order
#t)))
(add-before 'configure 'patch-/usr/bin/env
(lambda _
(substitute* "Makefile.in"
(("/usr/bin/env bash") (which "bash"))
(("\\$\\(GUILE_EFFECTIVE_VERSION\\)/site")
"site/$(GUILE_EFFECTIVE_VERSION)")) ;use the right order
#t))
;; auto compilation breaks, but if we set HOME to /tmp,
;; that works ok
(add-before
'check 'auto-compile-hacky-workaround
(lambda _
(setenv "HOME" "/tmp")
#t))
(add-before 'check 'auto-compile-hacky-workaround
(lambda _ (setenv "HOME" "/tmp") #t))
(add-after 'install 'install-go-files
(lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(effective (read-line
(open-pipe* OPEN_READ
"guile" "-c"
"(display (effective-version))")))
(module-dir (string-append out "/share/guile/site/"
effective))
(object-dir (string-append out "/lib/guile/" effective
"/site-ccache"))
(prefix (string-length module-dir)))
;; compile to the destination
(for-each (lambda (file)
(let* ((base (string-drop (string-drop-right file 4)
prefix))
(go (string-append object-dir base ".go")))
(invoke "guild" "compile" "-L" module-dir
file "-o" go)))
(find-files module-dir "\\.scm$"))
#t))))))
(lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(effective (read-line
(open-pipe* OPEN_READ
"guile" "-c"
"(display (effective-version))")))
(module-dir (string-append out "/share/guile/site/"
effective))
(object-dir (string-append out "/lib/guile/" effective
"/site-ccache"))
(prefix (string-length module-dir)))
;; compile to the destination
(for-each (lambda (file)
(let* ((base (string-drop (string-drop-right file 4)
prefix))
(go (string-append object-dir base ".go")))
(invoke "guild" "compile" "-L" module-dir
file "-o" go)))
(find-files module-dir "\\.scm$"))
#t))))))
(home-page "https://draketo.de/english/wisp")
(inputs
`(("guile" ,guile-2.2)))