From 93e1e6d71078a1dbac20965aa16e65065779e50f Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 14 Jul 2011 14:23:22 -0400 Subject: [PATCH] Fix display of syntax. --- collects/typed-scheme/optimizer/tool/display.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/optimizer/tool/display.rkt b/collects/typed-scheme/optimizer/tool/display.rkt index c6c9996e0d..8310ca5ccb 100644 --- a/collects/typed-scheme/optimizer/tool/display.rkt +++ b/collects/typed-scheme/optimizer/tool/display.rkt @@ -1,7 +1,7 @@ #lang racket/base (require racket/string racket/class racket/gui/base racket/match racket/port - framework + framework syntax/to-string "report.rkt" unstable/sequence unstable/pretty) @@ -43,7 +43,7 @@ ;; typeset the syntax as code (send syntax-text change-style tt-style-delta) (send syntax-text insert-port - (open-input-string (format "~a" (syntax->datum stx)))) + (open-input-string (syntax->string #`(#,stx)))) ; takes a list of stxs ;; circle irritants, if necessary (when (missed-opt-report-entry? s) (for ([i (in-list (missed-opt-report-entry-irritants s))]