summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/root.c')
-rw-r--r--libguile/root.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/root.c b/libguile/root.c
index dc80f7469..1a609956d 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -333,7 +333,7 @@ SCM_DEFINE (scm_dynamic_root, "dynamic-root", 0, 0, 0,
"in no way depend on this.")
#define FUNC_NAME s_scm_dynamic_root
{
- return scm_ulong2num (SCM_SEQ (scm_root->rootcont));
+ return scm_from_ulong (SCM_SEQ (scm_root->rootcont));
}
#undef FUNC_NAME