[Chicken-janitors] #1062: make check on windows: assertion failed: (equal? 1.0 (numerator 0.0))

[Chicken Trac]

#1062: make check on windows: assertion failed: (equal? 1.0 (numerator 0.0))
----------------------------+-----------------------------------------------
 Reporter:  mario           |       Owner:       
     Type:  defect          |      Status:  new  
 Priority:  major           |   Milestone:  4.9.0
Component:  core libraries  |     Version:  4.8.x
 Keywords:  windows         |  
----------------------------+-----------------------------------------------
 {{{
 ======================================== library tests ...

 Error: assertion failed: (equal? 1.0 (numerator 0.0))

         Call history:

         <syntax>          (##core#undefined)
         <syntax>          (##sys#error "assertion failed" (##core#quote
 (equal? +inf.0 (denominator 0.0))))
         <syntax>          (##core#quote (equal? +inf.0 (denominator 0.0)))
         <eval>    (equal? +inf.0 (denominator 0.0))
         <eval>    (denominator 0.0)
         <syntax>          (assert (equal? 1.0 (numerator 0.0)))
         <syntax>          (##core#if (##core#check (equal? 1.0 (numerator
 0.0))) (##core#undefined) (##sys#error "assertion fa...
         <syntax>          (##core#check (equal? 1.0 (numerator 0.0)))
         <syntax>          (equal? 1.0 (numerator 0.0))
         <syntax>          (numerator 0.0)
         <syntax>          (##core#undefined)
         <syntax>          (##sys#error "assertion failed" (##core#quote
 (equal? 1.0 (numerator 0.0))))
         <syntax>          (##core#quote (equal? 1.0 (numerator 0.0)))
         <eval>    (equal? 1.0 (numerator 0.0))
         <eval>    (numerator 0.0)
         <eval>    (##sys#error "assertion failed" (##core#quote (equal?
 1.0 (numerator 0.0))))  <--
 make[1]: *** [check] Error 70
 make[1]: Leaving directory `c:/src/chicken-core'
 make: *** [check] Error 2
 }}}

 {{{
 (c) 2008-2013, The Chicken Team
 (c) 2000-2007, Felix L. Winkelmann
 Version 4.8.3 (rev b663e07)
 windows-mingw32-x86 [ manyargs dload ptables ]
 compiled 2013-11-09 on foobar (MINGW32_NT-5.1)
 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/1062>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.