This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Lalo Martins <lalo@webcom.com> writes: > On Feb 09, Harvey J. Stein decided to present us with: > > > > I made a patch for guile 1.3 with the (1 line) slow read fix. I > > packaged it as an RPM and uploaded it to vicarious-existence.mit.edu: > > If it's an one-line patch, maybe it can be also incorporated in > the Debian package. Could you please post it to > <craig@red-bean.com>? I think he is already in this list, so he > will know what you're talking about. BTW, I extracted the fix via CVS. It looks like this is the right thing based on the log messages & seems to work for me, but YMMV... Anyway, here's the patch: Index: libguile/ports.h =================================================================== RCS file: /egcs/carton/cvsfiles/guile/guile-core/libguile/ports.h,v retrieving revision 1.33 retrieving revision 1.34 diff -u -r1.33 -r1.34 --- ports.h 1998/10/30 08:22:50 1.33 +++ 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)) Don't cut & paste it to apply - beware tabs. Just in case, here's the patch uuencoded: begin 644 guile-slow-read-fix.patch M26YD97@Z(&QI8F=U:6QE+W!O<G1S+F@*/3T]/3T]/3T]/3T]/3T]/3T]/3T] M/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T] M/0I20U,@9FEL93H@+V5G8W,O8V%R=&]N+V-V<V9I;&5S+V=U:6QE+V=U:6QE M+6-O<F4O;&EB9W5I;&4O<&]R=',N:"QV"G)E=')I979I;F<@<F5V:7-I;VX@ M,2XS,PIR971R:65V:6YG(')E=FES:6]N(#$N,S0*9&EF9B`M=2`M<C$N,S,@ M+7(Q+C,T"BTM+2!P;W)T<RYH"3$Y.3@O,3`O,S`@,#@Z,C(Z-3`),2XS,PHK M*RL@<&]R=',N:`DQ.3DX+S$Q+S`U(#$V.C`R.C4U"3$N,S0*0$`@+3DS+#<@ M*SDS+#<@0$`*("-D969I;F4@4T--7T-21%D)*#,R3#P\,38I("\J(%-H;W5L M9"!C:&%R+7)E861Y/R!R971U<FX@(W0_("HO"B`*("\J($$@;6%S:R!U<V5D M('1O(&-L96%R('1H92!C:&%R+7)E861Y('!O<G0@9FQA9RX@*B\*+2-D969I M;F4@4T--7T-50PD),'@P,#%F9F9F9DP**R-D969I;F4@4T--7T-50PD)*'Y3 M0TU?0U)$62D*(`H@(V1E9FEN92!30TU?4$]25%`H>"D@*%-#35]465`W*'@I M/3US8VU?=&,W7W!O<G0I"B`C9&5F:6YE(%-#35]/4%!/4E10*'@I("@H*#!X M-V8@?"!30TU?3U!.*2`F(%-#35]#05(H>"DI/3TH<V-M7W1C-U]P;W)T('P@ *4T--7T]03BDI"@`` ` end -- Harvey J. Stein BFM Financial Research hjstein@bfr.co.il