mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +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,
SCM_ARG2,
s_print_state_printer);
port = SCM_COERCE_OPORT (port);
port = SCM_COERCE_OUTPORT (port);
scm_puts ("#<print-state ", port);
scm_intprint (obj, 16, port);
scm_putc ('>', port);
@ -917,7 +917,7 @@ scm_newline (port)
else
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 EPIPE
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_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 EPIPE
if (EPIPE == errno)

6
libguile/print.h
View file

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