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

(scm_shell_usage): Print to stdout for --help, per GNU standard.

Browse source
This commit is contained in:
Kevin Ryde 2004-02-18 00:23:16 +00:00
parent 5bc692ff08
commit fbfb6f8529
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/script.c
View file

@ -366,10 +366,12 @@ char *scm_usage_name = 0;
void void
scm_shell_usage (int fatal, char *message) scm_shell_usage (int fatal, char *message)
{ {
if (message) FILE *fp = (fatal ? stderr : stdout);
fprintf (stderr, "%s\n", message);
fprintf (stderr, if (message)
fprintf (fp, "%s\n", message);
fprintf (fp,
"Usage: %s OPTION ...\n" "Usage: %s OPTION ...\n"
"Evaluate Scheme code, interactively or from a script.\n" "Evaluate Scheme code, interactively or from a script.\n"
"\n" "\n"