* readline.c (scm_readline): Export it to Scheme as "%readline".

diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 85d2755..3d27b2d 100644 (file)
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -137,7 +137,7 @@ redisplay ()
   /* promptp = 1; */
 }
 
-SCM_PROC (s_readline, "readline", 0, 4, 0, scm_readline);
+SCM_PROC (s_readline, "%readline", 0, 4, 0, scm_readline);
 
 static int in_readline = 0;
 #ifdef USE_THREADS