me
/
guix
Archived
1
0
Fork 0
Code

gnu: oil: Use G-expressions. 

* gnu/packages/shells.scm (oil)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-01-16 01:00:00 +01:00
parent a2350a16dd
commit 487613deea
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gnu/packages/shells.scm
View File

@ -838,26 +838,25 @@ Shell (pdksh).")
(base32 "01lmj4diqpla1gwwb1gh1shf4y74qhanpkzcsnb28458rxm1sq32")))) (base32 "01lmj4diqpla1gwwb1gh1shf4y74qhanpkzcsnb28458rxm1sq32"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:strip-binaries? #f ; strip breaks the binary (list #:strip-binaries? #f ; strip breaks the binary
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (setenv "CC" #$(cc-for-target))
(setenv "CC" ,(cc-for-target)) (substitute* "configure"
(substitute* "configure" ((" cc ") " $CC "))
((" cc ") " $CC ")) (invoke "./configure" (string-append "--prefix=" #$output)
(invoke "./configure" (string-append "--prefix=" out) "--with-readline")))
"--with-readline")))) (replace 'check
(replace 'check ;; The tests are not distributed in the tarballs but upstream
;; The tests are not distributed in the tarballs but upstream ;; recommends running this smoke test.
;; recommends running this smoke test. ;; https://github.com/oilshell/oil/blob/release/0.8.0/INSTALL.txt#L38-L48
;; https://github.com/oilshell/oil/blob/release/0.8.0/INSTALL.txt#L38-L48 (lambda* (#:key tests? #:allow-other-keys)
(lambda* (#:key tests? #:allow-other-keys) (when tests?
(when tests? (let* ((oil "_bin/oil.ovm"))
(let* ((oil "_bin/oil.ovm")) (invoke/quiet oil "osh" "-c" "echo hi")
(invoke/quiet oil "osh" "-c" "echo hi") (invoke/quiet oil "osh" "-n" "configure"))))))))
(invoke/quiet oil "osh" "-n" "configure"))))))))
(inputs (inputs
(list readline)) (list readline))
(home-page "https://www.oilshell.org") (home-page "https://www.oilshell.org")