From 3ee75bece0e6d54e9db9a7f43d3a6d7f9caa5e61 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 10 Jun 2008 18:38:06 -0700
Subject: [PATCH] fixed incorrect handling of ".ddd" when reading from a port.

---
 scheme/ikarus.reader.ss | 2 +-
 scheme/last-revision    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss
index ff562ae..198ded8 100644
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@@ -257,7 +257,7 @@
                   (string-append ".." (string c)))]))]
           [else 
            (cons 'datum
-             (dot p '(#\.) 10 #f #f))]))))
+             (dot p '(#\.) 10 #f +1))]))))
   (define tokenize-char* 
     (lambda (i str p d)
       (cond
diff --git a/scheme/last-revision b/scheme/last-revision
index 419ccb2..2b84175 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1511
+1512