mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

In boilerplate, use -l$0. Thanks to Daniel Skarda.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-08-01 05:09:30 +00:00
parent 9be745030e
commit 8c914f6b69
9 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/PROGRAM
View file

@ -1,7 +1,7 @@
#!/bin/sh
# aside from this initial boilerplate, this is actually -*- scheme -*- code
main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
!#
;;; PROGRAM --- Does something