#!@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:
/option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=ab10e1086cf1e36330a55d05ee438b097c9fd626&amp;ofs=50'>root</a>/<a href='/guix/log/gnu?id=ab10e1086cf1e36330a55d05ee438b097c9fd626&amp;ofs=50'>gnu</a>/<a href='/guix/log/gnu/system?id=ab10e1086cf1e36330a55d05ee438b097c9fd626&amp;ofs=50'>system</a>/<a href='/guix/log/gnu/system/vm.scm?id=ab10e1086cf1e36330a55d05ee438b097c9fd626&amp;ofs=50'>vm.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/system/vm.scm?id=ab10e1086cf1e36330a55d05ee438b097c9fd626&amp;ofs=50&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-03-13 23:12:43 +0100'>2019-03-13</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=59e80445882f8b0379e54916f89510c0deda6698'>Remove traces of "GuixSD".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-02-11 23:23:28 +0100'>2019-02-11</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=910d0121a8b6515febf0a02e4d23c249f98c0da2'>pack, vm: Fix incorrect use of 'package-transitive-propagated-inputs'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-01-22 23:04:05 +0100'>2019-01-22</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=323f250da7f74e331688775c1b9a951c4171d607'>vm: Remove unnecessary import.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-21 23:26:59 +0100'>2018-11-21</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=d422cbb3d6a1cc7e4553a2335b113475a05d68ad'>linux-initrd: 'expression-&gt;initrd' returns the complete file name.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-18 23:37:45 +0100'>2018-11-18</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=8bff7dc2adeaac7ed1b7f46efc0623e6476fb5c0'>vm: Remove explicit calls to 'operating-system-derivation'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-18 23:37:45 +0100'>2018-11-18</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=9782c82217f5bdfe8d47a5a3e14af47e3c3e5dd7'>system: De-monadify 'operating-system-bootcfg'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-18 23:37:44 +0100'>2018-11-18</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=e34ae75dc14acb97f661a2787a3c626d7ce65b24'>linux-initrd: Return file-like objects instead of monadic values.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-11-18 23:37:44 +0100'>2018-11-18</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=a7ef45d9de8c6b0d584769404c8754cd3da8fe29'>system: Simplify kernel argument handling.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-23 23:34:17 +0200'>2018-09-23</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=fce225471128c4a5246342b3aa1b7e53a8066211'>vm: Use "cache=loose" for all 9p mounts.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-23 23:34:17 +0200'>2018-09-23</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=b5460d95e970608bee7a794590be1b051b57d3a3'>vm: Disable deduplication for 'guix system vm-image'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>