Re: Circular dependencies in gnu/packages, weird error message

[Danny Milosavljevic]

Hi Ludo,

On Fri, 04 Nov 2016 15:37:52 +0100
address@hidden (Ludovic Courtès) 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 output 
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 (expecting 
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-binutils 
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 recent 
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 recent 
MIT Kerberos.")
      `(#:tests? #f ; no tests exist
        #:make-flags (list (string-append "PREFIX="
                                          (assoc-ref %outputs "out"))
-                          "CROSS_COMPILE="
+                          "CROSS_COMPILE=arm-linux-gnueabihf-"