suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/racket.rkt
View File

@ -441,7 +441,7 @@
(let ([l (syntax->list c)] (let ([l (syntax->list c)]
[h? highlight?]) [h? highlight?])
(unless (and l (= 2 (length l))) (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!) (advance c init-line!)
(set! src-col (syntax-column (cadr l))) (set! src-col (syntax-column (cadr l)))
(hash-set! next-col-map src-col dest-col) (hash-set! next-col-map src-col dest-col)

2
collects/tests/scribble/reader.rkt
View File

@ -871,7 +871,7 @@ END-OF-TESTS
[(column=) syntax-column] [(column=) syntax-column]
[(position=) syntax-position] [(position=) syntax-position]
[(span=) syntax-span] [(span=) syntax-span]
[else (error 'syntax-test "unknown test form: ~e" (car y))]) [else (error 'syntax-test "unknown test form: ~.s" (car y))])
x) x)
(cadr y)) (cadr y))
(check-stx x (cddr y))] (check-stx x (cddr y))]