summaryrefslogtreecommitdiff
path: root/libguile/dynl.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r--libguile/dynl.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c
index 834a98939..76380de4d 100644
--- a/libguile/dynl.c
+++ b/libguile/dynl.c
@@ -217,8 +217,9 @@ SCM_DEFINE (scm_dynamic_func, "dynamic-func", 2, 0, 0,
char *chars;
chars = SCM_STRING_CHARS (name);
- func = (void (*) ()) sysdep_dynl_func (chars, DYNL_HANDLE (dobj), FUNC_NAME);
- return scm_ulong2num ((unsigned long) func);
+ func = (void (*) ()) sysdep_dynl_func (chars, DYNL_HANDLE (dobj),
+ FUNC_NAME);
+ return scm_from_ulong ((unsigned long) func);
}
}
#undef FUNC_NAME