scribble latex rendering: remove a pair of {} around element with style

svn: r13889
This commit is contained in:
Matthew Flatt 2009-03-01 12:07:25 +00:00
parent b046291084
commit b2d2001eb0

View File

@ -166,10 +166,10 @@
(with-attributes-style s) (with-attributes-style s)
s)))] s)))]
[wrap (lambda (e s tt?) [wrap (lambda (e s tt?)
(printf "{\\~a{" s) (printf "\\~a{" s)
(parameterize ([rendering-tt (or tt? (rendering-tt))]) (parameterize ([rendering-tt (or tt? (rendering-tt))])
(super render-element e part ri)) (super render-element e part ri))
(printf "}}"))]) (printf "}"))])
(cond (cond
[(symbol? style) [(symbol? style)
(case style (case style