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