diff options
Diffstat (limited to 'nonguix/utils.scm')
-rw-r--r-- | nonguix/utils.scm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/nonguix/utils.scm b/nonguix/utils.scm deleted file mode 100644 index 7611a47..0000000 --- a/nonguix/utils.scm +++ /dev/null @@ -1,38 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> -;;; -;;; This file is not part of GNU Guix. -;;; -;;; GNU Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; GNU Guix is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. - -(define-module (nonguix utils) - #:use-module (srfi srfi-26) - #:use-module (ice-9 match) - #:use-module (ice-9 textual-ports) - #:use-module (ice-9 popen) - #:use-module (guix utils) - #:use-module (guix packages)) - -(define-public (to32 package64) - "Build package for i686-linux. -Only x86_64-linux and i686-linux are supported. -- If i686-linux, return the package unchanged. -- If x86_64-linux, return the 32-bit version of the package." - (match (%current-system) - ("x86_64-linux" - (package - (inherit package64) - (arguments `(#:system "i686-linux" - ,@(package-arguments package64))))) - (_ package64))) |