bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 0724d201354468c2d54ea33b9d7538584e342cf9
parent 9103a7250f76c69aa23ee44417d1a3e94ca3c8ce
Author: Jens Axel Søgaard <jensaxel@soegaard.net>
Date:   Tue, 15 Oct 2013 00:23:24 +0200

Changed behaviour of render-part-content with respect to html-render-pict-as

original commit: 1bb4eb8879bf19466e26742fb1e72bc4fcf5ab19

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
@@ -977,14 +977,14 @@
                       ri))))))
 
     (define/public (extract-render-pict-as d)
-      (or (ormap (lambda (v)
+      (ormap (lambda (v)
                    (and (render-pict-as? v)
                         (render-pict-as-type v)))
-                 (style-properties (part-style d)))
-          'png-images))
+                 (style-properties (part-style d))))
     
     (define/override (render-part-content d ri)
-      (parameterize ([current-render-pict-as (extract-render-pict-as d)])
+      (parameterize ([current-render-pict-as (or (extract-render-pict-as d) 
+                                                 (current-render-pict-as))])
         (let ([number (collected-info-number (part-collected-info d ri))])
           `(,@(let ([pres (extract-pretitle d)])
                 (append-map (lambda (pre)