* gc.h, gc.c (scm_gc_sweep): Issue deprecation warning when

[bpt/guile.git] / libguile / procs.c

diff --git a/libguile/procs.c b/libguile/procs.c
index 04db770..afc81cd 100644 (file)
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -78,10 +78,8 @@ scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
     {
       long new_size = scm_subr_table_room * 3 / 2;
       void *new_table
-       = scm_must_realloc ((char *) scm_subr_table,
-                           sizeof (scm_t_subr_entry) * scm_subr_table_room,
-                           sizeof (scm_t_subr_entry) * new_size, 
-                           "scm_subr_table");
+       = scm_realloc ((char *) scm_subr_table,
+                      sizeof (scm_t_subr_entry) * new_size);
       scm_subr_table = new_table;
       scm_subr_table_room = new_size;
     }
@@ -154,7 +152,8 @@ scm_mark_subr_table ()
 SCM 
 scm_makcclo (SCM proc, size_t len)
 {
-  scm_t_bits *base = scm_must_malloc (len * sizeof (scm_t_bits), "compiled-closure");
+  scm_t_bits *base = scm_gc_malloc (len * sizeof (scm_t_bits),
+                                   "compiled closure");
   unsigned long i;
   SCM s;
 
@@ -376,8 +375,7 @@ scm_init_subr_table ()
 {
   scm_subr_table
     = ((scm_t_subr_entry *)
-       scm_must_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room,
-                       "scm_subr_table"));
+       scm_malloc (sizeof (scm_t_subr_entry) * scm_subr_table_room));
 }
 
 void