[racket] WeScheme cond branch error

From: Ashok Bakthavathsalam (ashokb at kggroup.com)
Date: Sun Jun 10 07:57:43 EDT 2012

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

How do I fix this? The actual code is available at

(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)
    [(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))))]))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20120610/967dd81f/attachment.html>

Posted on the users mailing list.