- fixed a problem with loading an empty file.
- added ikarus.reader.annotated.ss to Makefile.am.
This commit is contained in:
parent
16284e6545
commit
22d216f9ed
|
@ -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)
|
||||
|
||||
|
|
|
@ -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")
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -1 +1 @@
|
|||
1578
|
||||
1580
|
||||
|
|
Loading…
Reference in New Issue