small patch for (ice-9 base64)

[Thien-Thi Nguyen]

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

thi

___________________________________________________
2004-03-05  Thien-Thi Nguyen  <address@hidden>

        * 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!))