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.
This commit is contained in:
Asumu Takikawa 2013-12-03 15:38:03 -05:00
parent 14b133296f
commit fca126bf01

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)