[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 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!"))
 }}}

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