summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-09-12 23:18:54 +0200
committerAndy Wingo <wingo@pobox.com>2010-09-12 23:29:11 +0200
commit37710f7e8f63f784de0343c1948e8afbbc10e395 (patch)
tree8d96cda7a538c82c3f981454392d799aafa5c1eb /libguile/init.c
parent4453f887ed6004126a73673f76853b30263209aa (diff)
downloadguile-37710f7e8f63f784de0343c1948e8afbbc10e395.tar.gz
move srfi-1 and srfi-60 C impl to libguile, without public C api
* libguile/srfi-1.c: * libguile/srfi-1.h: * libguile/srfi-60.c: * libguile/srfi-60.h: * libguile/ChangeLog-srfi: Move here, from the srfi/ dir. The C API is internal. Add API to register the extensions, called by init.c. * libguile/init.c: Verily, register srfi extensions. * libguile/Makefile.am: Add srfi files. * module/srfi/srfi-1.scm: * module/srfi/srfi-60.scm: Update load-extension invocation. * Makefile.am: * configure.ac: Remove srfi/ dir. * test-suite/standalone/Makefile.am: * test-suite/standalone/test-srfi-1.c: Remove srfi-1 C test, we don't support this API any more.
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/init.c b/libguile/init.c
index 6e4ee0e05..f64258fb2 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -115,8 +115,11 @@
#include "libguile/stacks.h"
#include "libguile/stime.h"
#include "libguile/strings.h"
+#include "libguile/srfi-1.h"
+#include "libguile/srfi-4.h"
#include "libguile/srfi-13.h"
#include "libguile/srfi-14.h"
+#include "libguile/srfi-60.h"
#include "libguile/strorder.h"
#include "libguile/strports.h"
#include "libguile/struct.h"
@@ -134,7 +137,6 @@
#include "libguile/guardians.h"
#include "libguile/extensions.h"
#include "libguile/uniform.h"
-#include "libguile/srfi-4.h"
#include "libguile/deprecated.h"
#include "libguile/init.h"
@@ -454,6 +456,8 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_bootstrap_programs ();
scm_bootstrap_vm ();
scm_register_foreign ();
+ scm_register_srfi_1 ();
+ scm_register_srfi_60 ();
scm_init_strings (); /* Requires array-handle */
scm_init_struct (); /* Requires strings */