*.eps *.go *.log *.pdf *.png *.tar.xz *.tmp *~ .#* \#*\# ,* /ABOUT-NLS /INSTALL /aclocal.m4 /autom4te.cache /build-aux/ar-lib /build-aux/compile /build-aux/config.guess /build-aux/config.rpath /build-aux/config.sub /build-aux/depcomp /build-aux/install-sh /build-aux/mdate-sh /build-aux/missing /build-aux/test-driver /build-aux/texinfo.tex /config.status /configure /doc/*.1 /doc/.dirstamp /doc/guix.aux /doc/guix.cp /doc/guix.cps /doc/guix.fn /doc/guix.fns /doc/guix.html /doc/guix.info /doc/guix.info-[0-9] /doc/guix.ky /doc/guix.pg /doc/guix.toc /doc/guix.t2p /doc/guix.tp /doc/guix.vr /doc/guix.vrs /doc/os-config-bare-bones.texi /doc/os-config-desktop.texi /doc/stamp-vti /doc/version.texi /etc/guix-daemon.conf /etc/guix-daemon.service /etc/guix-publish.conf /etc/guix-publish.service /guix-daemon /guix-register /guix/config.scm /libformat.a /libstore.a /libutil.a /m4/* /m4/ChangeLog /m4/gettext.m4 /m4/iconv.m4 /m4/lib-ld.m4 /m4/lib-link.m4 /m4/lib-prefix.m4 /m4/nls.m4 /m4/po.m4 /m4/progtest.m4 /nix-setuid-helper /nix/AUTHORS /nix/COPYING /nix/config.h /nix/config.h.in /nix/nix-daemon/nix-daemon.cc /nix/nix-setuid-helper/nix-setuid-helper.cc /nix/scripts/guix-authenticate /nix/scripts/list-runtime-roots /nix/scripts/offload /nix/scripts/substitute /po/guix/*.gmo /po/guix/*.insert-header /po/guix/*.mo /po/guix/ChangeLog /po/guix/Makefile.in.in /po/guix/Makevars.template /po/guix/POTFILES /po/guix/Rules-quot /po/guix/boldquot.sed /po/guix/en@boldquot.* /po/guix/en@quot.* /po/guix/guix.pot /po/guix/insert-header.sin /po/guix/quot.sed /po/guix/remove-potcdate.sed /po/guix/remove-potcdate.sin /po/guix/stamp-po /po/packages/*.gmo /po/packages/*.insert-header /po/packages/*.mo /po/packages/ChangeLog /po/packages/Makefile.in.in /po/packages/Makevars.template /po/packages/POTFILES /po/packages/Rules-quot /po/packages/boldquot.sed /po/packages/en@boldquot.* /po/packages/en@quot.* /po/packages/guix-packages.pot /po/packages/insert-header.sin /po/packa
#!@abs_top_builddir@/guile \
--no-auto-compile -e main -s
!#
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
;;;
;;; This file is 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/>.

;; IMPORTANT: We must avoid loading any modules from Guix here,
;; because we need to adjust the guile load paths first.
;; It's okay to import modules from core Guile though.

(define-syntax-rule (push! elt v) (set! v (cons elt v)))

(define (augment-load-paths!)
  ;; Add installed modules to load-path.
  (push! "@guilemoduledir@" %load-path)
  (push! "@guileobjectdir@" %load-compiled-path))

(define* (main #:optional (args (command-line)))
  (unless (getenv "GUIX_UNINSTALLED")
    (augment-load-paths!))

  (let ((guix-main (module-ref (resolve-interface '(guix ui))
                               'guix-main)))
    (bindtextdomain "guix" "@localedir@")
    (bindtextdomain "guix-packages" "@localedir@")
    ;; XXX: It would be more convenient to change it to:
    ;;   (exit (apply guix-main (command-line)))
    ;; but since the 'guix' command is not updated by 'guix pull', we cannot
    ;; really do it now.
    (apply guix-main args)))

;;; Local Variables:
;;; mode: scheme
;;; End: