(define xhurd-headers
    (package (inherit hurd-headers)
             (name (string-append (package-name hurd-headers)
                                  "-cross-" target))
             (arguments
              ;;(substitute-keyword-arguments (package-arguments hurd-headers)
              (substitute-keyword-arguments 
                  `(#:modules ((guix build gnu-build-system)
                               (guix build utils)
                               (ice-9 regex)
                               (srfi srfi-1)
                               (srfi srfi-26))
                              ,@(package-arguments hurd-headers))
              ((#:configure-flags flags)
               `(remove (cut string-match "--host.*" <>)
                        ,flags))))
             (native-inputs `(("cross-gcc-hurd" ,xgcc)
                              ("cross-binutils" ,xbinutils)
                              ("cross-mig" ,xmig)
                              ,@(alist-delete "mig"(package-native-inputs hurd-headers))))))