suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix arity errors detected by optimizer

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-15 19:22:40 -06:00
parent a82ae17ca8
commit 479e8cdc27
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/frtime/animation/graphics-posn-less-unit.rkt
View File

@ -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"

2
collects/net/nntp-unit.rkt
View File

@ -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