*.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: