[plt-dev] module pretty printing

Does anyone mind if I add a new rule for module pretty-printing? The 
current rule is "two up, rest as expr-list", which leads to things like 
this:

(module m lang
   (define-syntax
    name                 ;; <--
    (syntax-rules ()
      ((_)
       'ok))))

The new rule would be "two up, rest as expr":

(module m lang
   (define-syntax mac
     (syntax-rules ()
       ((_)
        'blah))))

Ryan