~ruther/guix-local

76eb726617327fa42faf7d16a34d459a7a5d37de — Mark H Weaver 11 years ago 4788dee
gnu: ccl: Add default 'match' cases for unsupported platforms.

* gnu/packages/lisp.scm (ccl)[arguments]: Add default 'match' cases for
  unsupported platforms.
1 files changed, 12 insertions(+), 4 deletions(-)

M gnu/packages/lisp.scm
M gnu/packages/lisp.scm => gnu/packages/lisp.scm +12 -4
@@ 343,9 343,13 @@ statistical profiler, a code coverage tool, and many other extensions.")
            (chdir (string-append
                    "lisp-kernel/"
                    ,(match (or (%current-target-system) (%current-system))
                       ("i686-linux" "linuxx8632")
                       ("i686-linux"   "linuxx8632")
                       ("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")
              (("/bin/rm") "rm"))
            (setenv "CC" "gcc")


@@ 366,9 370,13 @@ statistical profiler, a code coverage tool, and many other extensions.")
                    (bash (assoc-ref inputs "bash"))
                    (kernel
                     ,(match (or (%current-target-system) (%current-system))
                        ("i686-linux" "lx86cl")
                        ("i686-linux"   "lx86cl")
                        ("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")))
               (mkdir-p libdir)
               (mkdir-p bindir)