[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
small patch for (ice-9 base64)
From: |
Thien-Thi Nguyen |
Subject: |
small patch for (ice-9 base64) |
Date: |
Fri, 05 Mar 2004 18:25:20 +0100 |
(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!))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- small patch for (ice-9 base64),
Thien-Thi Nguyen <=