From df346e3044f05955e83dadc9c1eb438f2798ee91 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 original commit: c7b622c537c78f2519e1919558f379b82f45f492 --- 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 1260952..f845fa6 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)