Re: [Chicken-users] 1.39: string comparison broken?

[felix]

address@hidden wrote:
> Hi all.
>
> The second result surprises me:
>
>
> > csi
>
>  _______ _     _ _____ _______ _     _ _______ __   _
>  |       |_____|   |   |       |____/  |______ | \  |
>  |_____  |     | __|__ |_____  |    \_ |______ |  \_|
>
> Version 1, Build 39 - linux-unix-gnu-x86                   (same for 1.37)
> (c)2000-2004 Felix L. Winkelmann
> ; loading /home/sven/.csirc ...
> #;> (string>? "A2" "A")
> #t
> #;> (string>=? "A2" "A")
> #f

Yep, it's broken. Thanks!


cheers,
felix

cd ~/chicken/
diff -c /home/felix/chicken/library.scm.\~1.50.\~ 
/home/felix/chicken/library.scm
*** /home/felix/chicken/library.scm.~1.50.~     2004-03-13 10:37:05.000000000 
+0100
--- /home/felix/chicken/library.scm     2004-03-15 22:25:41.000000000 +0100
***************
*** 493,506 ****
                     s1 s2 'string<=?
                     (lambda (len1 len2 cmp)
                       (if (eq? cmp 0)
!                          (fx>= len1 len2)
                           (fx< cmp 0) ) ) ) ) )
    (set! string>=? (lambda (s1 s2)
                    (compare 
                     s1 s2 'string>=?
                     (lambda (len1 len2 cmp)
                       (if (eq? cmp 0)
!                          (fx<= len1 len2)
                           (fx> cmp 0) ) ) ) ) ) )
  
  (letrec ((compare 
--- 493,506 ----
                     s1 s2 'string<=?
                     (lambda (len1 len2 cmp)
                       (if (eq? cmp 0)
!                          (fx<= len1 len2)
                           (fx< cmp 0) ) ) ) ) )
    (set! string>=? (lambda (s1 s2)
                    (compare 
                     s1 s2 'string>=?
                     (lambda (len1 len2 cmp)
                       (if (eq? cmp 0)
!                          (fx>= len1 len2)
                           (fx> cmp 0) ) ) ) ) ) )
  
  (letrec ((compare 

Diff finished at Mon Mar 15 22:30:49