mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +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:22:28 +00:00
parent d8b95e27ab
commit 48dc9f349d
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/script.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. /* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either * License as published by the Free Software Foundation; either
@ -345,10 +345,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"