From 22d216f9ede351a05a641b98ab364e0deccbcbcc Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 10 Aug 2008 10:46:24 -0700
Subject: [PATCH] - fixed a problem with loading an empty file. - added
 ikarus.reader.annotated.ss to Makefile.am.

---
 scheme/Makefile.am                | 3 ++-
 scheme/Makefile.in                | 3 ++-
 scheme/ikarus.reader.annotated.ss | 4 +++-
 scheme/last-revision              | 2 +-
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/scheme/Makefile.am b/scheme/Makefile.am
index e9b879a..0c4036f 100644
--- a/scheme/Makefile.am
+++ b/scheme/Makefile.am
@@ -26,7 +26,8 @@ EXTRA_DIST=ikarus.boot.4.prebuilt ikarus.boot.8.prebuilt \
   unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss \
   ikarus.io.ss ikarus.time-and-date.ss ikarus.not-yet-implemented.ss \
   ikarus.string-to-number.ss ikarus.compiler.source-optimizer.ss \
-  ikarus.compiler.tag-annotation-analysis.ss ikarus.ontology.ss
+  ikarus.compiler.tag-annotation-analysis.ss ikarus.ontology.ss \
+  ikarus.reader.annotated.ss
  
 all: $(nodist_pkglib_DATA)
 
diff --git a/scheme/Makefile.in b/scheme/Makefile.in
index d4a8f58..f5e9a6f 100644
--- a/scheme/Makefile.in
+++ b/scheme/Makefile.in
@@ -180,7 +180,8 @@ EXTRA_DIST = ikarus.boot.4.prebuilt ikarus.boot.8.prebuilt \
   unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss \
   ikarus.io.ss ikarus.time-and-date.ss ikarus.not-yet-implemented.ss \
   ikarus.string-to-number.ss ikarus.compiler.source-optimizer.ss \
-  ikarus.compiler.tag-annotation-analysis.ss ikarus.ontology.ss
+  ikarus.compiler.tag-annotation-analysis.ss ikarus.ontology.ss \
+  ikarus.reader.annotated.ss
 
 revno = "$(shell sed 's/ .*//' ../.bzr/branch/last-revision 2>/dev/null)"
 sizeofvoidp = $(shell grep SIZEOF_VOID_P ../config.h | sed "s/.*\(.\)/\1/g")
diff --git a/scheme/ikarus.reader.annotated.ss b/scheme/ikarus.reader.annotated.ss
index cfa357c..265af2c 100644
--- a/scheme/ikarus.reader.annotated.ss
+++ b/scheme/ikarus.reader.annotated.ss
@@ -24,7 +24,9 @@
   (define (annotated-port file-name)
     (open-string-input-port/id
       (with-input-from-file file-name 
-        (lambda () (get-string-all (current-input-port))))
+        (lambda () 
+          (let ([x (get-string-all (current-input-port))])
+            (if (eof-object? x) "" x))))
       file-name))
 
   (define (read-library-source-file file-name)
diff --git a/scheme/last-revision b/scheme/last-revision
index 7bb9a89..59a0a5c 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1578
+1580