diff options
author | Andy Wingo <wingo@pobox.com> | 2023-05-28 22:17:37 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-06-08 09:03:10 +0200 |
commit | 5bdc663af902c986c09adf25e7ac583b6f764bb2 (patch) | |
tree | f3c83ac140dcab0b6c982552ea7ad8a270af4f34 /libguile/init.c | |
parent | bf4e8f911e27e595a78e69a4227b87b5750e53aa (diff) | |
download | guile-5bdc663af902c986c09adf25e7ac583b6f764bb2.tar.gz |
Rewrite soft ports in Scheme
This also makes soft ports suspendable.
* am/bootstrap.am (SOURCES): Add (ice-9 soft-ports).
* libguile/init.c (scm_i_init_guile): No need to init vports.
* libguile/vports.c: Call out to (ice-9 soft-ports).
* libguile/vports.h: Remove internal scm_init_vports.
* module/ice-9/boot-9.scm (the-scm-module): Import (ice-9 soft-ports).
Really this enlarges the boot closure a bit, so we should probably
refactor.
* module/ice-9/soft-ports.scm: New file.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libguile/init.c b/libguile/init.c index da3d2f0b7..4022728f9 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -150,7 +150,6 @@ #include "vectors.h" #include "version.h" #include "vm.h" -#include "vports.h" #include "weak-set.h" #include "weak-table.h" #include "weak-vector.h" @@ -472,7 +471,6 @@ scm_i_init_guile (void *base) scm_init_weak_table (); scm_init_weak_vectors (); scm_init_guardians (); /* requires smob_prehistory */ - scm_init_vports (); scm_init_standard_ports (); /* Requires fports */ scm_init_expand (); /* Requires structs */ scm_init_memoize (); /* Requires smob_prehistory */ |