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

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

diff --git a/libguile/fports.c b/libguile/fports.c
index 422d7d9..4579d3e 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -802,9 +802,9 @@ scm_init_fports ()
 {
   scm_tc16_fport = scm_make_fptob ();
 
-  scm_sysintern ("_IOFBF", SCM_MAKINUM (_IOFBF));
-  scm_sysintern ("_IOLBF", SCM_MAKINUM (_IOLBF));
-  scm_sysintern ("_IONBF", SCM_MAKINUM (_IONBF));
+  scm_c_define ("_IOFBF", SCM_MAKINUM (_IOFBF));
+  scm_c_define ("_IOLBF", SCM_MAKINUM (_IOLBF));
+  scm_c_define ("_IONBF", SCM_MAKINUM (_IONBF));
 
 #ifndef SCM_MAGIC_SNARFER
 #include "libguile/fports.x"