From 10077a6468f11d88251ff7949987ae78ad678eda Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 19 Dec 2007 19:33:05 -0500 Subject: [PATCH] minor change to the value returned by input-port-byte-position (it's up by 1 now). --- scheme/ikarus.io.ss | 2 +- scheme/ikarus.reader.ss | 4 ++-- scheme/last-revision | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss index 0bebe95..31b8332 100644 --- a/scheme/ikarus.io.ss +++ b/scheme/ikarus.io.ss @@ -220,7 +220,7 @@ (define (input-port-byte-position p) (if (input-port? 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))) (define guarded-port diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss index ba314b8..e6edb48 100644 --- a/scheme/ikarus.reader.ss +++ b/scheme/ikarus.reader.ss @@ -47,9 +47,9 @@ (and pos (+ pos off))))))) (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*)) + (define (die/p-1 p who msg . arg*) + (die/pos p -1 who msg arg*)) (define-syntax read-char diff --git a/scheme/last-revision b/scheme/last-revision index f038def..e4a7c99 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1268 +1270