[Chicken-janitors] [Chicken-bugs] #425: Differing Behavior in numbers egg when compiled vs interpreted

[Chicken Scheme]

#425: Differing Behavior in numbers egg when compiled vs interpreted
---------------------------------------------+------------------------------
 Reporter:  Jeremy Sydik <address@hidden>  |        Type:  defect    
   Status:  new                              |    Priority:  minor     
Milestone:                                   |   Component:  extensions
  Version:  3.0.0                            |    Keywords:            
---------------------------------------------+------------------------------
 Even w/numbers required, values are being treated as signed-32

 (require-extension numbers)

 (define (leftrot32 value amount)
   (let ((shifted (arithmetic-shift value amount)))
     (bitwise-ior (bitwise-and (string->number "#xFFFFFFFF") shifted)
                  (arithmetic-shift shifted -32))))

 (print (leftrot32 1 28))
 (print (leftrot32 1 29))
 (print (leftrot32 1 30))

-- 
Ticket URL: <http://trac.callcc.org/ticket/425>
Chicken Scheme <http://www.call-with-current-continuation.org/>
The CHICKEN Scheme-to-C compiler