[Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback

[Chicken Trac]

#113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback
------------------------+---------------------------------------------------
 Reporter:  jeronimo    |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  minor       |   Milestone:       
Component:  extensions  |     Version:  4.2.x
 Keywords:  crunch      |  
------------------------+---------------------------------------------------

Comment(by felix):

 Thanks for reporting the bug. I have found another one related to
 callbacks and the following code compiles and executes for me:

 {{{
 (import crunch)

 (define-crunch-callback
   (foo (int i)) int
   (display (format "Here's your int: ~a ~%" i))
   0)

 (crunch
   (define (work max)
      (do ((k 0 (+ k 1)))
          ((>= k max))
        (foo k))))

 (work 10)
 }}}

 Version 0.7.3, just updated.

 Note that the `void` return-type for `foo` is currently not working, I'll
 look into this as soon as I find the time.

-- 
Ticket URL: <http://www.irp.oist.jp/trac/chicken/ticket/113#comment:2>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.