diff options
author | Andy Wingo <wingo@pobox.com> | 2010-09-12 23:18:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-09-12 23:29:11 +0200 |
commit | 37710f7e8f63f784de0343c1948e8afbbc10e395 (patch) | |
tree | 8d96cda7a538c82c3f981454392d799aafa5c1eb /libguile/init.c | |
parent | 4453f887ed6004126a73673f76853b30263209aa (diff) | |
download | guile-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.c | 6 |
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 */ |