mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 04:00:19 +02:00
Code Activity

guild: Close over `$bindir/guile'.

Browse source 
* configure.ac: Substitute `guile_program_name'.

* meta/guild.in: Use `@bindir@/@guile_program_name@' by default.

* meta/uninstalled-env.in: Define $GUILE.
This commit is contained in:
Ludovic Courtès 2011-07-23 22:23:59 +02:00
parent 0d2e3fc1e7
commit f4b7d918ef
3 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
configure.ac
View file

@ -1636,6 +1636,10 @@ pkgdatadir="$datadir/$PACKAGE_TARNAME"
sitedir="$pkgdatadir/site/$GUILE_EFFECTIVE_VERSION" sitedir="$pkgdatadir/site/$GUILE_EFFECTIVE_VERSION"
AC_SUBST([sitedir]) AC_SUBST([sitedir])
dnl Name of the `guile' program.
guile_program_name="`echo guile | "$SED" "$program_transform_name"`"
AC_SUBST([guile_program_name])
# Additional SCM_I_GSC definitions are above. # Additional SCM_I_GSC definitions are above.
AC_SUBST([SCM_I_GSC_GUILE_DEBUG]) AC_SUBST([SCM_I_GSC_GUILE_DEBUG])
AC_SUBST([SCM_I_GSC_ENABLE_DEPRECATED]) AC_SUBST([SCM_I_GSC_ENABLE_DEPRECATED])

4
meta/guild.in
View file

@ -1,6 +1,8 @@
#!/bin/sh #!/bin/sh
# -*- scheme -*- # -*- scheme -*-
exec guile $GUILE_FLAGS -e '(@@ (guild) main)' -s "$0" "$@" prefix="@prefix@"
exec_prefix="@exec_prefix@"
exec ${GUILE:-@bindir@/@guile_program_name@} $GUILE_FLAGS -e '(@@ (guild) main)' -s "$0" "$@"
!# !#
;;;; guild --- running scripts bundled with Guile ;;;; guild --- running scripts bundled with Guile

4
meta/uninstalled-env.in
View file

@ -136,4 +136,8 @@ if test "x${top_srcdir}" != "x${top_builddir}"; then
fi fi
export PATH export PATH
# Define $GUILE, used by `guild'.
GUILE="${top_builddir}/meta/guile"
export GUILE
exec "$@" exec "$@"