small patch for (ice-9 base64)

(to the swift go the careless errors...
 who needs whitespace anyway?! ;-)

thi

___________________________________________________
2004-03-05  Thien-Thi Nguyen  <[email protected]>

	* base64.scm (encode!): Fix type bug: Do not do math on `bgrp' if #f.

Index: base64.scm
===================================================================
RCS file: /home/ttn/cvs/guile-core/ice-9/base64.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -c -p -w -c -r1.5 -r1.6
*** base64.scm	5 Mar 2004 16:46:41 -0000	1.5
--- base64.scm	5 Mar 2004 17:23:00 -0000	1.6
***************
*** 188,194 ****
      (define (find!)
        (and=> (getc!) c2i))
  
!     (let loop ((group (1- bgrp)))
        (set! g (find!))
        (set! n (find!))
        (set! u (find!))
--- 188,194 ----
      (define (find!)
        (and=> (getc!) c2i))
  
!     (let loop ((group (and bgrp (1- bgrp))))
        (set! g (find!))
        (set! n (find!))
        (set! u (find!))


_______________________________________________
Guile-user mailing list
[email protected]
http://mail.gnu.org/mailman/listinfo/guile-user