* regex-posix.c (scm_free_regex_t): Return size of regex_t instead

of 0; size_t --> scm_size_t.  Thanks to Bernard Urban.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 894b631..711bdc4 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1997-11-06  Mikael Djurfeldt  <mdj@nada.kth.se>
+
+       * regex-posix.c (scm_free_regex_t): Return size of regex_t instead
+       of 0; size_t --> scm_size_t.  Thanks to Bernard Urban.
+
 1997-10-26  Mikael Djurfeldt  <mdj@nada.kth.se>
 
        * scmconfig.h.in: Updated (HAVE_LIBTERMCAP was added when

diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index c6ffd38..10117b8 100644 (file)
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -87,13 +87,13 @@
 
 long scm_tc16_regex_t;
 
-static size_t
+static scm_size_t
 scm_free_regex_t (obj)
      SCM obj;
 {
   regfree (SCM_RGX (obj));
   free (SCM_RGX (obj));
-  return 0;
+  return sizeof(regex_t);
 }
 
 static int