core: write_byte: Prepare for M2-Planet.
* src/posix.c (write_byte): Prepare for M2-Planet.
This commit is contained in:
parent
27dc8401cf
commit
c0e24e3619
16
src/posix.c
16
src/posix.c
|
@ -144,10 +144,18 @@ write_byte (SCM x) /*:((arity . n)) */
|
||||||
SCM c = car (x);
|
SCM c = car (x);
|
||||||
SCM p = cdr (x);
|
SCM p = cdr (x);
|
||||||
int fd = __stdout;
|
int fd = __stdout;
|
||||||
if (TYPE (p) == TPAIR && TYPE (car (p)) == TNUMBER && VALUE (CAR (p)) != 1)
|
if (TYPE (p) == TPAIR)
|
||||||
fd = VALUE (CAR (p));
|
{
|
||||||
if (TYPE (p) == TPAIR && TYPE (car (p)) == TNUMBER && VALUE (CAR (p)) == 2)
|
SCM f = CAR (p);
|
||||||
fd = __stderr;
|
if (TYPE (f) == TNUMBER)
|
||||||
|
{
|
||||||
|
long v = VALUE (f);
|
||||||
|
if (v != 1)
|
||||||
|
fd = v;
|
||||||
|
if (v == 2)
|
||||||
|
fd = __stderr;
|
||||||
|
}
|
||||||
|
}
|
||||||
char cc = VALUE (c);
|
char cc = VALUE (c);
|
||||||
write (fd, &cc, 1);
|
write (fd, &cc, 1);
|
||||||
#if !__MESC__
|
#if !__MESC__
|
||||||
|
|
Loading…
Reference in New Issue