id,summary,reporter,owner,description,type,status,priority,milestone,component,resolution,keywords,cc,planetversion,pltversion
155,Incorrect rendering of case clauses,untyped,dherman,"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",defect,closed,major,,dherman/javascript.plt,,"javascript,print,switch,case clause",,(9 0),4.1.4