mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 04:40:19 +02:00
Code Activity

* print.h (SCM_COERCE_OPORT): Renamed to SCM_COERCE_OUTPORT. An

Browse source 
OPORT is an `open' port, not an output port.
This commit is contained in:
Marius Vollmer 1997-10-25 21:54:46 +00:00
parent 7844682850
commit 0ef4ae82e6
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/print.c
View file

@ -220,7 +220,7 @@ print_state_printer (obj, port)
port, port,
SCM_ARG2, SCM_ARG2,
s_print_state_printer); s_print_state_printer);
port = SCM_COERCE_OPORT (port); port = SCM_COERCE_OUTPORT (port);
scm_puts ("#<print-state ", port); scm_puts ("#<print-state ", port);
scm_intprint (obj, 16, port); scm_intprint (obj, 16, port);
scm_putc ('>', port); scm_putc ('>', port);
@ -917,7 +917,7 @@ scm_newline (port)
else else
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG1, s_newline); SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG1, s_newline);
scm_putc ('\n', SCM_COERCE_OPORT (port)); scm_putc ('\n', SCM_COERCE_OUTPORT (port));
#ifdef HAVE_PIPE #ifdef HAVE_PIPE
# ifdef EPIPE # ifdef EPIPE
if (EPIPE == errno) if (EPIPE == errno)
@ -943,7 +943,7 @@ scm_write_char (chr, port)
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_write_char); SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_write_char);
SCM_ASSERT (SCM_ICHRP (chr), chr, SCM_ARG1, s_write_char); SCM_ASSERT (SCM_ICHRP (chr), chr, SCM_ARG1, s_write_char);
scm_putc ((int) SCM_ICHR (chr), SCM_COERCE_OPORT (port)); scm_putc ((int) SCM_ICHR (chr), SCM_COERCE_OUTPORT (port));
#ifdef HAVE_PIPE #ifdef HAVE_PIPE
# ifdef EPIPE # ifdef EPIPE
if (EPIPE == errno) if (EPIPE == errno)

2
libguile/print.h
View file

@ -70,7 +70,7 @@ extern scm_option scm_print_opts[];
#define SCM_WRITINGP(pstate) ((pstate)->writingp) #define SCM_WRITINGP(pstate) ((pstate)->writingp)
#define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); } #define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); }
#define SCM_COERCE_OPORT(p) ((SCM_NIMP (p) && SCM_PRINT_STATE_P (SCM_CDR (p))) \ #define SCM_COERCE_OUTPORT(p) ((SCM_NIMP (p) && SCM_PRINT_STATE_P (SCM_CDR (p))) \
? SCM_CAR (p) \ ? SCM_CAR (p) \
: p) : p)