From 44e0a162a27d90bf0a302eba35d614f966056b00 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 5 Nov 1998 16:02:55 +0000 Subject: [PATCH] * ports.h (SCM_CUC): #define as ~SCM_CRDY instead of 0x001fffffL. This is quite important since the latter clears the FPORT_READ_SAFE and FPORT_WRITE_SAFE flags causing flushes at every single character read... --- libguile/ChangeLog | 7 +++++++ libguile/ports.h | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index d81ede250..3b53cfb67 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,10 @@ +1998-11-06 Mikael Djurfeldt + + * ports.h (SCM_CUC): #define as ~SCM_CRDY instead of 0x001fffffL. + This is quite important since the latter clears the + FPORT_READ_SAFE and FPORT_WRITE_SAFE flags causing flushes at + every single character read... + 1998-11-03 Mikael Djurfeldt * print.c (scm_iprin1): Removed suspect looking (and indeed diff --git a/libguile/ports.h b/libguile/ports.h index f8028e72c..80dfe3077 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -93,7 +93,7 @@ extern int scm_port_table_size; /* Number of ports in scm_port_table. */ #define SCM_CRDY (32L<<16) /* Should char-ready? return #t? */ /* A mask used to clear the char-ready port flag. */ -#define SCM_CUC 0x001fffffL +#define SCM_CUC (~SCM_CRDY) #define SCM_PORTP(x) (SCM_TYP7(x)==scm_tc7_port) #define SCM_OPPORTP(x) (((0x7f | SCM_OPN) & SCM_CAR(x))==(scm_tc7_port | SCM_OPN))