[Chicken-users] Bug in numbers egg -- log function

[Alexander Shendi]

Dear Chicken users,

I have encounterd what seems to be a bug in the numbers egg. The problem
occurs when I evaluate "(log 297.0+0.1i)". I have tested this with 
the current stable release (4.7.0) on the following platforms:

OS             CPU                   Machine
===========================================================
OpenBSD 5.0   Loongson2F (mips64el)  Lemote Yeeloong 8089B
OpenBSD 5.0   i686 (x86)             Asus eeePC 701

I have appended the two logs below. 

I have two questions:

- Is this list the proper place to report the bug?
- How do I obtain the source code of the numbers egg, so 
  I can come up with a patch?

Many thanks in advance,

Alexander Shendi

================= Log for yeeloong.local (mips64el) =====================
Script started on Mon Jan  9 21:40:58 2012
$ csi -v

CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.0 
openbsd-unix-gnu-mips [ 64bit dload ptables ]
compiled 2011-11-13 on loongson.local (OpenBSD)

$ csi -R numbers -e '(log 297+0.1i)'

Error: (log) bad argument type - complex number has no ordering: 297.0+0.1i

        Call history:

        <syntax>          (##core#require-extension (numbers) #t)
        <syntax>          (##core#begin (##core#begin (##core#begin 
(##sys#require (quote numbers))) (import numbers)) (##core......
        <syntax>          (##core#begin (##core#begin (##sys#require (quote 
numbers))) (import numbers))
        <syntax>          (##core#begin (##sys#require (quote numbers)))
        <syntax>          (##sys#require (quote numbers))
        <syntax>          (quote numbers)
        <syntax>          (##core#quote numbers)
        <syntax>          (import numbers)
        <syntax>          (import (except scheme + - * / = > < >= <= eqv? 
number->string string->number exp log sin cos tan at......
        <syntax>          (##core#undefined)
        <syntax>          (##core#undefined)
        <syntax>          (##core#undefined)
        <eval>    (##sys#require (quote numbers))
        <syntax>          (log 297.0+0.1i)
        <eval>    (log 297.0+0.1i)      <--
$ 

Script done on Mon Jan  9 21:41:36 2012

========================= Log for eeepc.local (i386) 
=============================
Script started on Mon Jan  9 22:04:44 2012
$ csi -v

CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.0 
openbsd-unix-gnu-x86 [ manyargs dload ptables ]
compiled 2012-01-09 on eeepc.local (OpenBSD)

$ csi -R numbers -e '(log 297.0+0.1i)'

Error: (log) bad argument type - complex number has no ordering: 297.0+0.1i

        Call history:

        <syntax>          (##core#require-extension (numbers) #t)
        <syntax>          (##core#begin (##core#begin (##core#begin 
(##sys#require (quote numbers))) (import numbers)) (##core......
        <syntax>          (##core#begin (##core#begin (##sys#require (quote 
numbers))) (import numbers))
        <syntax>          (##core#begin (##sys#require (quote numbers)))
        <syntax>          (##sys#require (quote numbers))
        <syntax>          (quote numbers)
        <syntax>          (##core#quote numbers)
        <syntax>          (import numbers)
        <syntax>          (import (except scheme + - * / = > < >= <= eqv? 
number->string string->number exp log sin cos tan at......
        <syntax>          (##core#undefined)
        <syntax>          (##core#undefined)
        <syntax>          (##core#undefined)
        <eval>    (##sys#require (quote numbers))
        <syntax>          (log 297.0+0.1i)
        <eval>    (log 297.0+0.1i)      <--
$ 

Script done on Mon Jan  9 22:05:23 2012