From c7b622c537c78f2519e1919558f379b82f45f492 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 26 Jan 2007 19:52:05 +0000 Subject: [PATCH] Macro stepper: fixed old error message for clarity svn: r5467 --- collects/macro-debugger/syntax-browser/pretty-printer.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.ss b/collects/macro-debugger/syntax-browser/pretty-printer.ss index 1260952bce..f845fa61fa 100644 --- a/collects/macro-debugger/syntax-browser/pretty-printer.ss +++ b/collects/macro-debugger/syntax-browser/pretty-printer.ss @@ -21,10 +21,10 @@ (init-field typesetter) (init-field (primary-partition #f)) (init-field (columns (current-default-columns))) - + (unless (syntax? main-stx) - (error 'syntax-snip% "got non-syntax object: ~s" main-stx)) - + (error 'syntax-pretty-printer "got non-syntax object: ~s" main-stx)) + (define datum #f) (define ht:flat=>stx #f) (define ht:stx=>flat #f)