Fix arity of write-to-file method in text%

Found via TR. The two last arguments are supposed to be
optional but the method only accepted 1 or 3 arguments.

original commit: fca126bf01f990d5600655a879046c95230edc64
This commit is contained in:
Asumu Takikawa 2013-12-03 15:38:03 -05:00
parent d301ee732a
commit f0c6f3da78

View File

@ -268,7 +268,7 @@ Matthew
(get-character [(start)] unlocked)
(find-wordbreak [(start end reason)] unlocked)
(save-file [() (filename) (filename format) (filename format show-errors?)] unlocked)
(write-to-file [(stream) (stream start end)] unlocked)
(write-to-file [(stream) (stream start) (stream start end)] unlocked)
(find-position [(x y) (x y at-eol?) (x y at-eol? on-it?) (x y at-eol? on-it? edge-close?)] unlocked)
(scroll-line-location [(pos)] unlocked)
(num-scroll-lines [()] unlocked)