* Return type of scm_make_smob_type is scm_bits_t now.

diff --git a/THANKS b/THANKS
index 62c8b10..4f32c7f 100644 (file)
--- a/THANKS
+++ b/THANKS
@@ -25,6 +25,7 @@ For fixes or providing information which led to a fix:
     Han-Wen Nienhuys
       David Pirotte
      Julian Satchell
+       Bill Schottstaedt
     Dale P. Smith
  Jacques A. Vidrine.
     William Webber

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 8c286e6..5b73ff0 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-15  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * smob.[ch] (scm_make_smob_type):  Return type is scm_bits_t now.
+       Thanks to Bill Schottstaedt.
+
 2001-01-11  Michael Livshin  <mlivshin@bigfoot.com>
 
        from Matthias Köppe:

diff --git a/libguile/smob.c b/libguile/smob.c
index 9c84632..a14ca2c 100644 (file)
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -275,7 +275,7 @@ scm_smob_apply_3_error (SCM smob, SCM a1, SCM a2, SCM rst)
 }
 
 \f
-long 
+scm_bits_t 
 scm_make_smob_type (char *name, scm_sizet size)
 {
   char *tmp;

diff --git a/libguile/smob.h b/libguile/smob.h
index 065001b..0b67ef9 100644 (file)
--- a/libguile/smob.h
+++ b/libguile/smob.h
@@ -143,7 +143,7 @@ extern int scm_smob_print (SCM exp, SCM port, scm_print_state *pstate);
  * values using `scm_set_smob_xxx'.
  */
 
-extern long scm_make_smob_type (char *name, scm_sizet size);
+extern scm_bits_t scm_make_smob_type (char *name, scm_sizet size);
 
 extern void scm_set_smob_mark (long tc, SCM (*mark) (SCM));
 extern void scm_set_smob_free (long tc, scm_sizet (*free) (SCM));