Lots of "~e" to "~.s" changes.
original commit: 606b7f60dc597a6870efc11364e1dd3e1a8b4a1b
This commit is contained in:
parent
6ce47a9d1e
commit
0802093808
|
@ -441,7 +441,7 @@
|
|||
(let ([l (syntax->list c)]
|
||||
[h? highlight?])
|
||||
(unless (and l (= 2 (length l)))
|
||||
(error "bad code:redex: ~e" (syntax->datum c)))
|
||||
(error "bad code:redex: ~.s" (syntax->datum c)))
|
||||
(advance c init-line!)
|
||||
(set! src-col (syntax-column (cadr l)))
|
||||
(hash-set! next-col-map src-col dest-col)
|
||||
|
|
|
@ -871,7 +871,7 @@ END-OF-TESTS
|
|||
[(column=) syntax-column]
|
||||
[(position=) syntax-position]
|
||||
[(span=) syntax-span]
|
||||
[else (error 'syntax-test "unknown test form: ~e" (car y))])
|
||||
[else (error 'syntax-test "unknown test form: ~.s" (car y))])
|
||||
x)
|
||||
(cadr y))
|
||||
(check-stx x (cddr y))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user