From 8c0cd81337706d080adcc5de4517cb83909d77e9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Feb 2008 14:49:58 +0000 Subject: [PATCH] doc repairs and r6rs repairs svn: r8754 original commit: f39b12a55585ff049dd7761f1b70dca0552c3086 --- collects/scribble/run.ss | 4 ++-- collects/scribble/struct.ss | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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))))))