[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):

 Replying to [comment:10 jeronimo]:
 > Hi Felix,
 >
 > This is what I've tried to compile:
 >
 > {{{
 > (use crunch)
 >
 > (crunch
 >     (define (string-reverse str)
 >           (let* ((n (string-length str))
 >                                (s2 (make-string n #\space)))
 >                      (do ((i 0 (add1 i)))
 >                                     ((>= i n))
 >                                                (string-set! s2 (sub1 (-
 n i)) (string-ref str i)))
 >                               s2)) )
 >
 > (print (string-reverse "this is a test!"))
 > }}}

 Can you try the HEAD of the `experimental` git branch + svn trunk of
 crunch?

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