From mboxrd@z Thu Jan  1 00:00:00 1970
From: Danny Milosavljevic <dannym@scratchpost.org>
Subject: Re: Circular dependencies in gnu/packages, weird error message
Date: Fri, 4 Nov 2016 22:26:22 +0100
Message-ID: <20161104222622.2dac6487@scratchpost.org>
References: <20161104022451.4c7690eb@scratchpost.org> <871syr1fb3.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:44471)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <dannym@scratchpost.org>) id 1c2m0S-0007Oo-H5
	for guix-devel@gnu.org; Fri, 04 Nov 2016 17:26:37 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <dannym@scratchpost.org>) id 1c2m0P-0006R2-BC
	for guix-devel@gnu.org; Fri, 04 Nov 2016 17:26:36 -0400
In-Reply-To: <871syr1fb3.fsf@gnu.org>
List-Id: "Development of GNU Guix and the GNU System distribution."
	<guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-devel/>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
	<mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
Sender: "Guix-devel" <guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org>
To: Ludovic =?ISO-8859-1?Q?Court=E8s?= <ludo@gnu.org>
Cc: guix-devel@gnu.org

Hi Ludo,

On Fri, 04 Nov 2016 15:37:52 +0100
ludo@gnu.org (Ludovic Court=C3=A8s) wrote:
> You should now be able to add #:use-module (gnu packages cross-base) in
> admin.scm.

Yes. However, now I get

In unknown file:
   ?: 18 [primitive-load "/x/home/dannym/src/guix/scripts/guix"]
In guix/ui.scm:
1220: 17 [run-guix-command package "-i" ...]
In ice-9/boot-9.scm:
 157: 16 [catch srfi-34 #<procedure 1eb57a0 at guix/ui.scm:426:2 ()> ...]
 157: 15 [catch system-error ...]
In guix/scripts/package.scm:
 898: 14 [#<procedure 1eb57c0 at guix/scripts/package.scm:886:4 ()>]
 865: 13 [process-actions #<build-daemon 256.15 1ebea40> (# # # # ...)]
In guix/ui.scm:
 706: 12 [show-manifest-transaction # # # ...]
In srfi/srfi-1.scm:
 601: 11 [map #<procedure upgrade-string (name old-version new-version outp=
ut item)> ...]
In guix/ui.scm:
 664: 10 [upgrade-string "sunxi-tools" "1.4.1" ...]
In guix/packages.scm:
1141: 9 [package-output # # "out" ...]
 793: 8 [cache! #<weak-key-hash-table 189ae40 169/223> # # ...]
1099: 7 [thunk]
 793: 6 [cache! #<weak-key-hash-table 189ab40 172/223> # # ...]
 894: 5 [thunk]
In ice-9/eval.scm:
 387: 4 [eval # #]
 387: 3 [eval # #]
 387: 2 [eval # #]
 387: 1 [eval # #]
In unknown file:
   ?: 0 [struct-ref #<syntax-transformer glibc> 1]

ERROR: In procedure struct-ref:
ERROR: In procedure struct-ref: Wrong type argument in position 1 (expectin=
g struct): #<syntax-transformer glibc>

with:

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 1d577c7..44ab171 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -43,6 +43,8 @@
   #:use-module (guix build-system trivial)
   #:use-module (gnu packages)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages cross-base)
+;  #:use-module ((gnu packages cross-base) #:select (cross-gcc cross-binut=
ils cross-libc))
   #:use-module (gnu packages cyrus-sasl)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages readline)
@@ -1874,7 +1876,11 @@ Kerberos and Heimdal and FAST is supported with rece=
nt MIT Kerberos.")
         '(delete-file-recursively "bin"))
        (file-name (string-append name "-" version ".tar.gz"))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)))
+     `(("pkg-config" ,pkg-config)
+       ("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf"))
+       ("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf" #:libc (cross-libc "=
arm-linux-gnueabihf")))
+       ;("cross-libc" ,(cross-libc "arm-linux-gnueabihf"))
+))
     (inputs
      `(("libusb" ,libusb)))
     (build-system gnu-build-system)
@@ -1882,7 +1888,7 @@ Kerberos and Heimdal and FAST is supported with recen=
t MIT Kerberos.")
      `(#:tests? #f ; no tests exist
        #:make-flags (list (string-append "PREFIX=3D"
                                          (assoc-ref %outputs "out"))
-                          "CROSS_COMPILE=3D"
+                          "CROSS_COMPILE=3Darm-linux-gnueabihf-"