Merge from mvo-vcell-cleanup-1-branch.

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

diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c
index 6f43cf7..cdb07a4 100644 (file)
--- a/libguile/gh_funcs.c
+++ b/libguile/gh_funcs.c
@@ -130,7 +130,8 @@ gh_new_procedure5_0 (const char *proc_name, SCM (*fn) ())
 SCM
 gh_define (const char *name, SCM val)
 {
-  return scm_sysintern (name, val);
+  scm_c_define (name, val);
+  return SCM_UNSPECIFIED;
 }
 
 \f