Quoted while loop on calccomp.el

[Juanma Barranquero]

In this bit from lisp/calc/calccomp.el, at lines 1284-1290:

                   (if (> mrg 12)  ; indenting too far, go back to far left
                       (let ((j i) (new (if calc-line-numbering 5 1)))
                         '(while (<= j math-comp-level)
                           (aset math-comp-buf-margin j
                                 (+ (aref math-comp-buf-margin j) (- new mrg)))
                           (setq j (1+ j)))
                         (setq mrg new)))

it is the '(while stuff an ugly, but intended way to comment out the
while loop, or a mistake? Seems like the the latter, but if so, it's
been there since the initial import of Calc 2.02f on revno:40770
(2001-11-06), which makes that code suspiciously unneeded...

    Juanma