From f99d5fabd3baee4f378aaf83f13c589b76337a18 Mon Sep 17 00:00:00 2001 From: Jelle Licht Date: Mon, 29 Nov 2021 19:33:44 +0100 Subject: [WIP] Move channel to "guix" subdirectory. --- nonguix/utils.scm | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 nonguix/utils.scm (limited to 'nonguix/utils.scm') 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 -;;; -;;; 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 . - -(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))) -- cgit v1.2.3