From 139faf91604555450376c985e614c707246d771b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 24 Apr 2010 08:22:57 -0600 Subject: [PATCH] fix contract error message to use pretty-write for contract forms --- collects/racket/contract/private/blame.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/racket/contract/private/blame.ss b/collects/racket/contract/private/blame.ss index c6b3cb72a6..a0311aa122 100644 --- a/collects/racket/contract/private/blame.ss +++ b/collects/racket/contract/private/blame.ss @@ -87,8 +87,13 @@ (pretty-display v port) (get-output-string port))) +(define (pretty-format/write v [columns (pretty-print-columns)]) + (let ([port (open-output-string)]) + (pretty-write v port) + (get-output-string port))) + (define show/display (show pretty-format/display)) -(define show/write (show pretty-format)) +(define show/write (show pretty-format/write)) (define (show-line-break line port len cols) (newline port)