Fix handling of SCM value with regard to strict typing.

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 15152e3..5014a0b 100644 (file)
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-04  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * readline.c (scm_readline):  Must unpack SCM values to access
+       their raw contents.
+
 2000-03-19  Michael Livshin  <mlivshin@bigfoot.com>
 
        * *.[hc]: add Emacs magic at the end of file, to ensure GNU

diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index b74abe4..faadb9b 100644 (file)
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -203,7 +203,7 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0,
 
   ans = scm_internal_catch (SCM_BOOL_T,
                            (scm_catch_body_t) internal_readline,
-                           (void *) text,
+                           (void *) SCM_UNPACK (text),
                            handle_error, 0);
 
   fclose (rl_instream);