gash/bin/gash.in

14 lines
495 B
Plaintext
Raw Normal View History

#! /bin/sh
# -*-scheme-*-
exec ${GUILE-guile} -L $(dirname $0) -L $(dirname $(dirname $0)) -C $(dirname $0) -C $(dirname $(dirname $0)) --no-auto-compile -e '(gash)' -s $0 "$@"
!#
(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)))