id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
721	read-string will drop last line if that line does not end with newline	Alan Post		"The following program:

{{{
(let ((file (read-string)))
  (write file))
}}}

is a simple test of read-string.  The following does not produce the result I expect:

{{{
$ csi test.scm < test.scm
""(let ((file (read-string)))  (write file))\n""
}}}

It appears if the newline in the middle of the file is not being preserved?  Further, if I remove the ""\n"" from the test.scm file (please find it attached, I used a program called bvi to remove it, most editors will not let you save a file with a missing final newline), I get:

{{{
$ dd if=test.scm bs=1 count=42|csi test.scm
""(let ((file (read-string)))\n""
}}}

It seems the final line is being dropped!  What is going on here?  I expect read-string, when not given a size, to return my input file byte-for-byte?"	defect	new	major	4.8.0	unknown	4.7.x