* Introduce SCM_UNUSED and mark unused function parameters.

[bpt/guile.git] / guile-readline / readline.c

diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 6070e17..b085f94 100644 (file)
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -1,6 +1,6 @@
 /* readline.c --- line editing support for Guile */
 
-/*     Copyright (C) 1997,1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1997,1999,2000,2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -128,7 +128,7 @@ static SCM input_port;
 static SCM before_read;
 
 static int
-current_input_getc (FILE *in)
+current_input_getc (FILE *in SCM_UNUSED)
 {
   if (promptp && !SCM_FALSEP (before_read))
     {