mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* ports.h (SCM_CUC): #define as ~SCM_CRDY instead of 0x001fffffL.

Browse source 
This is quite important since the latter clears the
FPORT_READ_SAFE and FPORT_WRITE_SAFE flags causing flushes at
every single character read...
This commit is contained in:
Mikael Djurfeldt 1998-11-05 16:02:55 +00:00
parent 94b16acb85
commit 44e0a162a2
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
1998-11-06 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* 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 <mdj@barbara.nada.kth.se>
* print.c (scm_iprin1): Removed suspect looking (and indeed

2
libguile/ports.h
View file

@ -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))