Macro stepper: fixed old error message for clarity
svn: r5467
This commit is contained in:
parent
8c8e0d36e7
commit
c7b622c537
|
@ -21,10 +21,10 @@
|
||||||
(init-field typesetter)
|
(init-field typesetter)
|
||||||
(init-field (primary-partition #f))
|
(init-field (primary-partition #f))
|
||||||
(init-field (columns (current-default-columns)))
|
(init-field (columns (current-default-columns)))
|
||||||
|
|
||||||
(unless (syntax? main-stx)
|
(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 datum #f)
|
||||||
(define ht:flat=>stx #f)
|
(define ht:flat=>stx #f)
|
||||||
(define ht:stx=>flat #f)
|
(define ht:stx=>flat #f)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user