minor change to the value returned by input-port-byte-position
(it's up by 1 now).
This commit is contained in:
parent
6a1839ad93
commit
10077a6468
|
@ -220,7 +220,7 @@
|
||||||
(define (input-port-byte-position p)
|
(define (input-port-byte-position p)
|
||||||
(if (input-port? p)
|
(if (input-port? p)
|
||||||
(let ([pos ($port-position p)])
|
(let ([pos ($port-position p)])
|
||||||
(and pos (fx+ pos ($port-index p))))
|
(and pos (fx+ pos (fx+ ($port-index p) 1))))
|
||||||
(error 'input-port-byte-position "not an input port" p)))
|
(error 'input-port-byte-position "not an input port" p)))
|
||||||
|
|
||||||
(define guarded-port
|
(define guarded-port
|
||||||
|
|
|
@ -47,9 +47,9 @@
|
||||||
(and pos (+ pos off)))))))
|
(and pos (+ pos off)))))))
|
||||||
|
|
||||||
(define (die/p p who msg . arg*)
|
(define (die/p p who msg . arg*)
|
||||||
(die/pos p 1 who msg arg*))
|
|
||||||
(define (die/p-1 p who msg . arg*)
|
|
||||||
(die/pos p 0 who msg arg*))
|
(die/pos p 0 who msg arg*))
|
||||||
|
(define (die/p-1 p who msg . arg*)
|
||||||
|
(die/pos p -1 who msg arg*))
|
||||||
|
|
||||||
|
|
||||||
(define-syntax read-char
|
(define-syntax read-char
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1268
|
1270
|
||||||
|
|
Loading…
Reference in New Issue