Register `scm_init_r6rs_ports' as an extension.

* libguile/r6rs-ports.c (scm_register_r6rs_ports): New function.
* libguile/r6rs-ports.h (scm_register_r6rs_ports): New declaration.

* libguile/init.c (scm_i_init_guile): Call it.

diff --git a/libguile/init.c b/libguile/init.c
index f64258f..bb916dc 100644 (file)
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -455,6 +455,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
   scm_bootstrap_objcodes ();
   scm_bootstrap_programs ();
   scm_bootstrap_vm ();
+  scm_register_r6rs_ports ();
   scm_register_foreign ();
   scm_register_srfi_1 ();
   scm_register_srfi_60 ();

diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index 9576db8..968b329 100644 (file)
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -1064,6 +1064,15 @@ initialize_custom_binary_output_ports (void)
 \f
 /* Initialization.  */
 
+void
+scm_register_r6rs_ports (void)
+{
+  scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION,
+                            "scm_init_r6rs_ports",
+                           (scm_t_extension_init_func) scm_init_r6rs_ports,
+                           NULL);
+}
+
 void
 scm_init_r6rs_ports (void)
 {

diff --git a/libguile/r6rs-ports.h b/libguile/r6rs-ports.h
index 5e1707a..edde005 100644 (file)
--- a/libguile/r6rs-ports.h
+++ b/libguile/r6rs-ports.h
@@ -1,7 +1,7 @@
 #ifndef SCM_R6RS_PORTS_H
 #define SCM_R6RS_PORTS_H
 
-/* Copyright (C) 2009 Free Software Foundation, Inc.
+/* Copyright (C) 2009, 2010 Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
@@ -40,5 +40,6 @@ SCM_API SCM scm_open_bytevector_output_port (SCM);
 SCM_API SCM scm_make_custom_binary_output_port (SCM, SCM, SCM, SCM, SCM);
 
 SCM_API void scm_init_r6rs_ports (void);
+SCM_INTERNAL void scm_register_r6rs_ports (void);
 
 #endif /* SCM_R6RS_PORTS_H */