suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix usage of bytes

Browse Source 
svn: r15193
This commit is contained in:
Eli Barzilay 2009-06-17 05:03:28 +00:00
parent 0328b2ef81
commit 0c23c7f9d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/at-exp/lang/reader.ss
View File

@ -13,7 +13,7 @@
(define (bad str eof?) (define (bad str eof?)
((if eof? raise-read-eof-error raise-read-error) ((if eof? raise-read-eof-error raise-read-error)
(let ([msg "bad language path following at-exp"]) (let ([msg "bad language path following at-exp"])
(if str (string-append msg ": " str) msg)) (if str (format "~a: ~a" msg str) msg))
src line col pos src line col pos
(let-values ([(line col pos2) (port-next-location in)]) (let-values ([(line col pos2) (port-next-location in)])
(and pos pos2 (- pos2 pos))))) (and pos pos2 (- pos2 pos)))))