[racket] for/fold indentation in DrRacket

Hello,

How could I make for/fold indent like in the documentation?

I want this:

(for/fold ([sum 0]
             [rev-roots null])
            ([i '(1 2 3 4)])
  (values (+ sum i) (cons (sqrt i) rev-roots)))


But DrRacket insists on this:

(for/fold ([sum 0]
           [rev-roots null])
  ([i '(1 2 3 4)])
  (values (+ sum i) (cons (sqrt i) rev-roots)))


Thanks!

Rodolfo Carvalho
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20111015/56429fd3/attachment.html>