[racket] WeScheme cond branch error

Use local for internal definitions in the teaching languages.

http://docs.racket-lang.org/htdp-langs/advanced.html?q=local#(form._((lib._lang/htdp-advanced..rkt)._local))

/Jens Axel



2012/6/10 Ashok Bakthavathsalam <ashokb at kggroup.com>:
> Although the following code works perfectly well in DrRacket environment, it
> generates the following error in WeScheme:
>   Inside a cond branch, I expect to see a question and an answer, but I see
> more than two things here.
>
>      at: line 15, column 4, in <definitions>
>
>
> How do I fix this? The actual code is available
> at http://www.wescheme.org/view?publicId=gutsy-buddy-woken-smoke-wrest
>
> (define (insert l n e)
>   (if (= 0 n)
>       (cons e l)
>       (cons (car l)
>             (insert (cdr l) (- n 1) e))))
>
> (define (seq start end)
>   (if (= start end)
>       (list end)
>       (cons start (seq (+ start 1) end))))
>
> (define (permute l)
>   (cond
>     [(null? l) '(())]
>     [else (define (silly1 p)
>             (define (silly2 n) (insert p n (car l)))
>             (map silly2 (seq 0 (length p))))
>             (apply append (map silly1 (permute (cdr l))))]))
>
>
>
>
>
>
> ____________________
>  Racket Users list:
>  http://lists.racket-lang.org/users
>



-- 
--
Jens Axel Søgaard