srfi-14 char-set<= problem

[Jamison Hope]

On Nov 27, 2014, at 12:45 PM, Seth Alves <alves@hungry.com> wrote:

> (import (scheme base) (scheme write) (srfi 14))
> (write (char-set<= (char-set #\u) (char-set #\u)))
> (newline)
> (write (char-set<= (char-set #\u) (char-set #\u #\a)))
> (newline)
> 
> This prints:
> 
> #t
> #f
> 
>    -seth

Yup, there was a bug in the char-set<= logic.  The attached patch should fix it.  Per, if you would do the honors..

--
Jamison Hope
The PTR Group
www.theptrgroup.com


-------------- next part --------------
A non-text attachment was scrubbed...
Name: srfi14-fix.patch
Type: application/octet-stream
Size: 2227 bytes
Desc: not available
URL: <http://sourceware.org/pipermail/kawa/attachments/20141201/e4f471e0/attachment.obj>