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

fix arity errors detected by optimizer

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

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

@ -195,7 +195,7 @@
[status-line (get-one-line-from-server receiver)]) [status-line (get-one-line-from-server receiver)])
(let-values ([(code rest-of-line) (let-values ([(code rest-of-line)
(parse-status-line status-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 : ;; open-news-group :
;; communicator x string -> number x number x number ;; communicator x string -> number x number x number