minor change to the value returned by input-port-byte-position

(it's up by 1 now).

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

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 

scheme/last-revision

@@ -1 +1 @@
-1268
+1270