Macro stepper: fixed old error message for clarity

svn: r5467
This commit is contained in:
Ryan Culpepper 2007-01-26 19:52:05 +00:00
parent 8c8e0d36e7
commit c7b622c537

View File

@ -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)