diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss index b491d36c..b64cdff0 100644 --- a/collects/scribble/run.ss +++ b/collects/scribble/run.ss @@ -92,6 +92,6 @@ (when (current-info-output-file) (let ([s (send renderer serialize-info r-info)]) (with-output-to-file (current-info-output-file) - #:exists 'truncate/replace (lambda () - (write s)))))))))))) + (write s)) + 'truncate/replace)))))))))) diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.ss index 0f2b935b..84ab4e58 100644 --- a/collects/scribble/struct.ss +++ b/collects/scribble/struct.ss @@ -191,7 +191,7 @@ (with-handlers ([exn:fail:contract? (lambda (exn) (error 'serialize-delayed-element - "serialization failed (wrong resolve info?); ~a" + "serialization failed (wrong resolve info? delayed element never rendered?); ~a" (exn-message exn)))]) (vector (make-element #f (delayed-element-content d ri)))))) @@ -234,7 +234,7 @@ (with-handlers ([exn:fail:contract? (lambda (exn) (error 'serialize-part-relative-element - "serialization failed (wrong resolve info?); ~a" + "serialization failed (wrong resolve info? part-relative element never rendered?); ~a" (exn-message exn)))]) (vector (make-element #f (part-relative-element-content d ri))))))