From 138a3554e29c816f3a085085a789759513c40307 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 10 Dec 2008 18:56:13 +0000 Subject: [PATCH] Don't use the contract pretty printer when we try to see if we can single line the contract error. svn: r12766 --- collects/scheme/private/contract-guts.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/scheme/private/contract-guts.ss b/collects/scheme/private/contract-guts.ss index 6627e2dee7..ff4804a9cf 100644 --- a/collects/scheme/private/contract-guts.ss +++ b/collects/scheme/private/contract-guts.ss @@ -180,8 +180,7 @@ [formatted-contract-sexp (let ([one-line (let ([sp (open-output-string)]) - (parameterize ([pretty-print-print-line print-contract-liner] - [pretty-print-columns 'infinity]) + (parameterize ([pretty-print-columns 'infinity]) (pretty-print contract-sexp sp) (get-output-string sp)))]) (if (< (string-length one-line) 30)