- fixed a problem with loading an empty file.

- added ikarus.reader.annotated.ss to Makefile.am.

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)
 

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")

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)

scheme/last-revision

@@ -1 +1 @@
-1578
+1580