From 479e8cdc27e1c1b307fca2bed0866ec36d10bb52 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 15 May 2011 19:22:40 -0600 Subject: [PATCH] fix arity errors detected by optimizer --- collects/frtime/animation/graphics-posn-less-unit.rkt | 2 +- collects/net/nntp-unit.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/frtime/animation/graphics-posn-less-unit.rkt b/collects/frtime/animation/graphics-posn-less-unit.rkt index f00b46074d..e59e98e244 100644 --- a/collects/frtime/animation/graphics-posn-less-unit.rkt +++ b/collects/frtime/animation/graphics-posn-less-unit.rkt @@ -524,7 +524,7 @@ (rec draw-arc-viewport (case-lambda [(p width height start-radians end-radians) - (draw-arc-viewport p width height (make-rgb 0 0 0))] + (draw-arc-viewport p width height start-radians end-radians (make-rgb 0 0 0))] [(p width height start-radians end-radians color) (check 'draw-arc posn? p "posn" diff --git a/collects/net/nntp-unit.rkt b/collects/net/nntp-unit.rkt index 65bd87c337..655b84ecd0 100644 --- a/collects/net/nntp-unit.rkt +++ b/collects/net/nntp-unit.rkt @@ -195,7 +195,7 @@ [status-line (get-one-line-from-server receiver)]) (let-values ([(code rest-of-line) (parse-status-line status-line)]) - (values code rest-of-line (get-rest-of-multi-line-response))))) + (values code rest-of-line (get-rest-of-multi-line-response communicator))))) ;; open-news-group : ;; communicator x string -> number x number x number