Incorrect rendering of case clauses

[untyped]

Hi Dave,

JS.plt misses the "default:" and "case x:" bits when it's rendering case clauses. Here's a revised version of the format-case-clause method in print.ss:

;; format-case-clause : CaseClause -> any
(define (format-case-clause case)
  (let ([question (CaseClause-question case)]
        [answer (CaseClause-answer case)])
    (h-append
     (if question
         (h-append (text "case ") (format-expression question))
         (text "default"))
     (text ":")
     (if (= (length answer) 1)
         (format-nested-substatement (car answer))
         (nest (current-indentation-width)
               (h-append line
                         (format-map format-substatement answer formatters/StatementList)))))))

Cheers,

-- Dave

[dherman]

Fixed in 9:1. Thanks, Dave.