Lots of "~e" to "~.s" changes.

original commit: 606b7f60dc597a6870efc11364e1dd3e1a8b4a1b
This commit is contained in:
Eli Barzilay 2010-08-25 16:10:55 -04:00
parent 6ce47a9d1e
commit 0802093808
2 changed files with 2 additions and 2 deletions

View File

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

View File

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