|
From: | Chicken Trac |
Subject: | [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback |
Date: | Mon, 15 Feb 2010 14:26:45 -0000 |
#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.
[Prev in Thread] | Current Thread | [Next in Thread] |