14 lines
451 B
Scheme
14 lines
451 B
Scheme
#! /bin/sh
|
|
# -*-scheme-*-
|
|
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)))
|