ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ccl: Add default 'match' cases for unsupported platforms.

Browse source 
* gnu/packages/lisp.scm (ccl)[arguments]: Add default 'match' cases for
  unsupported platforms.
This commit is contained in:
Mark H Weaver 2015-04-21 23:25:12 -04:00
parent 4788deea0b
commit 76eb726617
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/lisp.scm
View file

@ -343,9 +343,13 @@ (define-public ccl
(chdir (string-append (chdir (string-append
"lisp-kernel/" "lisp-kernel/"
,(match (or (%current-target-system) (%current-system)) ,(match (or (%current-target-system) (%current-system))
("i686-linux" "linuxx8632") ("i686-linux" "linuxx8632")
("x86_64-linux" "linuxx8664") ("x86_64-linux" "linuxx8664")
("armhf-linux" "linuxarm")))) ("armhf-linux" "linuxarm")
;; Prevent errors when querying this package
;; on unsupported platforms, e.g. when running
;; "guix package --search="
(_ "UNSUPPORTED"))))
(substitute* '("Makefile") (substitute* '("Makefile")
(("/bin/rm") "rm")) (("/bin/rm") "rm"))
(setenv "CC" "gcc") (setenv "CC" "gcc")
@ -366,9 +370,13 @@ (define-public ccl
(bash (assoc-ref inputs "bash")) (bash (assoc-ref inputs "bash"))
(kernel (kernel
,(match (or (%current-target-system) (%current-system)) ,(match (or (%current-target-system) (%current-system))
("i686-linux" "lx86cl") ("i686-linux" "lx86cl")
("x86_64-linux" "lx86cl64") ("x86_64-linux" "lx86cl64")
("armhf-linux" "armcl"))) ("armhf-linux" "armcl")
;; Prevent errors when querying this package
;; on unsupported platforms, e.g. when running
;; "guix package --search="
(_ "UNSUPPORTED")))
(heap (string-append kernel ".image"))) (heap (string-append kernel ".image")))
(mkdir-p libdir) (mkdir-p libdir)
(mkdir-p bindir) (mkdir-p bindir)