www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

commit df346e3044f05955e83dadc9c1eb438f2798ee91
parent 93cc4c0ea767296df284804ef8e9052e9aa9f6b0
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 26 Jan 2007 19:52:05 +0000

Macro stepper: fixed old error message for clarity

svn: r5467

original commit: c7b622c537c78f2519e1919558f379b82f45f492

Diffstat:
Mcollects/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 @@ -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)