Error: write in output-string: symbols truncated at position 255
This code snippet shows the problem:
(let ((form (quote (the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde auto-bahn-bau-stelle verkehrsbehinderung)))) (call-with-output-file "/home/herbaer/ok" (lambda (p) (display "ah " p) (write form p))) (let ((port (open-output-string)) (s "")) (display "ah " port) (write form port) (set! s (get-output-string port)) (close-output-port port) (call-with-output-file "/home/herbaer/bug" (lambda (p) (display s p)))))
The contents of file ok is (without linebreaks):
ah (the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde auto-bahn-bau-stelle verkehrsbehinderung)
The contents of file bug is:
ah (the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde the quick brown fox jumps over the lazy dog abcde a verkehrsbehinderung)
The name 'auto-bahn-bau-stelle' is truncated after 255 bytes from the beginning of the output string. Numbers are also truncated. But string constants are not truncated.
This is rather a problem of TinyScheme, but I do not know where to submit issues to TinyScheme.