From fca126bf01f990d5600655a879046c95230edc64 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 3 Dec 2013 15:38:03 -0500 Subject: [PATCH] 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. --- pkgs/gui-pkgs/gui-lib/mred/private/seqcontract.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/seqcontract.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/seqcontract.rkt index 86b260f40c..80695ed926 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/seqcontract.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/seqcontract.rkt @@ -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)