diff options
-rw-r--r-- | lang/guile/patches/patch-ab | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/guile/patches/patch-ab b/lang/guile/patches/patch-ab new file mode 100644 index 00000000000..0233f0cc9ec --- /dev/null +++ b/lang/guile/patches/patch-ab @@ -0,0 +1,15 @@ +$NetBSD: patch-ab,v 1.5 1999/07/20 18:40:42 perry Exp $ + +--- libguile/ports.h 1998/10/30 08:22:50 1.33 ++++ libguile/ports.h 1998/11/05 16:02:55 1.34 +@@ -93,7 +93,7 @@ + #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)) + + |