#!/gnu/store/wmsy2fmx6x2j0nmy3h5mlhjpsb6p8isc-guile-wrapper/bin/guile --no-auto-compile !# (begin (set! %load-extensions (quote (".scm"))) (set! %load-path (append (list (string-append "/gnu/store/a2j4wlsslk02lgpa2ra3s3s7fhyphl07-guix-module-union" "/share/guile/site/" (effective-version)) (string-append "/gnu/store/1jgcbdzx2ss6xv59w55g3kr3x4935dfb-guile-3.0.8" "/share/guile/" (effective-version))) %load-path)) (set! %load-compiled-path (append (list (string-append "/gnu/store/a2j4wlsslk02lgpa2ra3s3s7fhyphl07-guix-module-union" "/lib/guile/" (effective-version) "/site-ccache") (string-append "/gnu/store/1jgcbdzx2ss6xv59w55g3kr3x4935dfb-guile-3.0.8" "/lib/guile/" (effective-version) "/ccache")) %load-compiled-path)) (let ((locpath (getenv "GUIX_LOCPATH"))) (setenv "GUIX_LOCPATH" (string-append (if locpath (string-append locpath ":") "") "/gnu/store/fx878z6nskih682cwhdfxk8dh8078593-glibc-utf8-locales-2.33/lib/locale"))) (let ((guix-main (module-ref (resolve-interface (quote (guix ui))) (quote guix-main)))) (begin (bindtextdomain "guix" "/gnu/store/6w2f4jmbdcbk2lhqjn1aqz8cdr5jd4xp-guix-locale-guix") (bindtextdomain "guix-packages" "/gnu/store/69hrizkqqx7ip9dla43c1f4rkq1d92dh-guix-locale-guix-packages")) (apply guix-main (command-line))))