summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/deprecated.c2
-rw-r--r--libguile/init.c4
-rw-r--r--libguile/srfi-14.c2
3 files changed, 4 insertions, 4 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 6025c7baf..ac10c7aef 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -423,7 +423,7 @@ scm_create_hook (const char *name, int n_args)
{
SCM hook = scm_make_hook (scm_from_int (n_args));
scm_c_define (name, hook);
- return scm_permanent_object (hook);
+ return hook;
}
}
diff --git a/libguile/init.c b/libguile/init.c
index c674b4034..ccd91c175 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -469,7 +469,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_fports ();
scm_init_strports ();
scm_init_ports ();
- scm_init_gdbint (); /* Requires strports */
+ scm_init_gdbint (); /* Requires strports, gc_protect_object */
scm_init_hash ();
scm_init_hashtab ();
scm_init_deprecation ();
@@ -516,7 +516,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_arrays ();
scm_init_array_map ();
- scm_bootstrap_vm ();
+ scm_bootstrap_vm (); /* requires gc_permanent_object */
scm_init_strings (); /* Requires array-handle */
scm_init_struct (); /* Requires strings */
diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index 38ef32049..09fe90c63 100644
--- a/libguile/srfi-14.c
+++ b/libguile/srfi-14.c
@@ -2010,7 +2010,7 @@ define_charset (const char *name, const scm_t_char_set *p)
SCM_NEWSMOB (cs, scm_tc16_charset, p);
scm_c_define (name, cs);
- return scm_permanent_object (cs);
+ return cs;
}
SCM_DEFINE (scm_sys_char_set_dump, "%char-set-dump", 1, 0, 0, (SCM charset),