fix searching a different way, which more likely matches the intent

svn: r10899

original commit: 78c52208361a517c2ea4a9a2d9ccf4c0c65974d9
This commit is contained in:
Matthew Flatt 2008-07-24 11:41:21 +00:00
parent 133883ef2e
commit 4367ba6549

View File

@ -770,8 +770,8 @@
[style (if (with-attributes? raw-style)
(with-attributes-style raw-style)
raw-style)])
(if (and (pair? style) (eq? (car style) 'div))
`((div-hack ,(cdr style) ,@contents))
(if (and (pair? style) (eq? (car style) 'div-hack))
`((div ,(cdr style) ,@contents))
`((,(if (string? style) 'div 'p)
,(append
(if (string? style)