gash/bin/gash.in

14 lines
453 B
Plaintext
Raw Normal View History

#! /bin/sh
# -*-scheme-*-
2018-07-02 07:35:10 +01:00
exec ${GUILE-guile} -L $(pwd)/bin -L $(pwd) -C $(pwd)/bin -C $(pwd) --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)))