2018-06-29 17:57:41 +01:00
|
|
|
#! /bin/sh
|
|
|
|
|
# -*-scheme-*-
|
2018-07-15 22:01:52 +01:00
|
|
|
exec ${GUILE-guile} -L $(dirname $0) -L $(dirname $(dirname $0)) -C $(dirname $0) -C $(dirname $(dirname $0)) --no-auto-compile -e '(gash)' -s $0 "$@"
|
2018-06-29 17:43:58 +01:00
|
|
|
!#
|
2018-06-29 17:57:41 +01:00
|
|
|
(define-module (gash)
|
|
|
|
|
#:export (main))
|
|
|
|
|
|
|
|
|
|
(set! %load-path (append '("@GUILE_SITE_DIR@") %load-path))
|
|
|
|
|
(set! %load-compiled-path (append '("@GUILE_SITE_CCACHE_DIR@") %load-compiled-path))
|
|
|
|
|
|
|
|
|
|
(define (main args)
|
|
|
|
|
(setenv "SHELL" ((compose canonicalize-path car command-line)))
|
|
|
|
|
((@ (gash gash) main) (command-line)))
|
