diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
| commit | 92c2555f6972b5fbc2236fe486e9432040b43812 (patch) | |
| tree | e439c8a06c62d74e4ef377a3fbe94783f2943a90 /libguile/vports.c | |
| parent | 51fa276692198eb140365f60e516fbc8ff547f10 (diff) | |
| download | guile-92c2555f6972b5fbc2236fe486e9432040b43812.tar.gz | |
replace "scm_*_t" with "scm_t_*".
Diffstat (limited to 'libguile/vports.c')
| -rw-r--r-- | libguile/vports.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/vports.c b/libguile/vports.c index cd29ce31d..9d7fbe409 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -69,13 +69,13 @@ */ -static scm_bits_t scm_tc16_sfport; +static scm_t_bits scm_tc16_sfport; static void sf_flush (SCM port) { - scm_port_t *pt = SCM_PTAB_ENTRY (port); + scm_t_port *pt = SCM_PTAB_ENTRY (port); SCM stream = SCM_PACK (pt->stream); if (pt->write_pos > pt->write_buf) @@ -121,7 +121,7 @@ sf_fill_input (SCM port) return EOF; SCM_ASSERT (SCM_CHARP (ans), ans, SCM_ARG1, "sf_fill_input"); { - scm_port_t *pt = SCM_PTAB_ENTRY (port); + scm_t_port *pt = SCM_PTAB_ENTRY (port); *pt->read_buf = SCM_CHAR (ans); pt->read_pos = pt->read_buf; @@ -190,7 +190,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0, "@end lisp") #define FUNC_NAME s_scm_make_soft_port { - scm_port_t *pt; + scm_t_port *pt; SCM z; SCM_VALIDATE_VECTOR_LEN (1,pv,5); SCM_VALIDATE_STRING (2, modes); @@ -208,10 +208,10 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0, #undef FUNC_NAME -static scm_bits_t +static scm_t_bits scm_make_sfptob () { - scm_bits_t tc = scm_make_port_type ("soft", sf_fill_input, sf_write); + scm_t_bits tc = scm_make_port_type ("soft", sf_fill_input, sf_write); scm_set_port_mark (tc, scm_markstream); scm_set_port_flush (tc, sf_flush); |