Home
last modified time | relevance | path

Searched refs:SCM_OPORTP (Results 1 – 10 of 10) sorted by relevance

/dports/lang/gauche/Gauche-0.9.10/src/
H A Dwrite.c217 if (!SCM_OPORTP(p)) Scm_Error("output port required, but got %S", p); in Scm_WriteWithControls()
272 if (!SCM_OPORTP(p)) { in Scm_WriteLimited()
352 if (nargs != 2 || (nargs == 2 && !SCM_OPORTP(args[1]))) { in write_object_fallback()
1129 if (!SCM_OPORTP(out)) Scm_Error("output port required, but got %S", out); in Scm_Vprintf()
H A Dlibio.scm55 (define-cproc output-port? (obj) ::<boolean> SCM_OPORTP)
76 (cond [(SCM_OPORTP newport)
87 [(SCM_OPORTP newport) (return (Scm_SetCurrentErrorPort (SCM_PORT newport)))]
H A Derror.c1110 } else if (SCM_OPORTP(out)) { in Scm_ReportError()
H A Dlibio.c5617 {SCM_RESULT=(SCM_OPORTP(obj));goto SCM_STUB_RETURN;} in libiooutput_portP()
5729 if (SCM_OPORTP(newport)){ in libiocurrent_output_port()
5827 if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("output port or #f required, but got %S", p_scm); in libiostandard_output_port()
6298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libioclose_output_port()
6847 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm); in libioget_output_string()
6872 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm); in libioget_output_byte_string()
8117 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_simple()
8230 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libionewline()
8264 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_char()
8298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm); in libiowrite_byte()
[all …]
H A Dsystem.c1860 if (tofd[i] == 1 && !SCM_OPORTP(port)) in Scm_SysPrepareFdMap()
1863 if (tofd[i] == 2 && !SCM_OPORTP(port)) in Scm_SysPrepareFdMap()
H A Dvminsn.scm1375 ($type-check VAL0 SCM_OPORTP "output port")
H A Dvminsn.c2481 if (!(SCM_OPORTP(VAL0))){{Scm_Error("%s required, but got %S","output port",VAL0);}} in CASE()
/dports/lang/gauche/Gauche-0.9.10/src/gauche/
H A Dport.h299 #define SCM_OPORTP(obj) (SCM_PORTP(obj)&&(SCM_PORT_DIR(obj)&SCM_PORT_OUTPUT)) macro
/dports/lang/gauche/Gauche-0.9.10/ext/charconv/
H A Dcharconv.c470 if (!SCM_OPORTP(toPort)) in Scm_MakeOutputConversionPort()
/dports/lang/gauche/Gauche-0.9.10/lib/gauche/vm/
H A Dinsn.scm2222 …RG code)) (ch) (port::ScmPort*)) (cond ((== nargs 2) ($type-check VAL0 SCM_OPORTP "output port") (…