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

Minor typo in error call

Browse Source
This commit is contained in:
Eli Barzilay 2010-10-12 15:55:42 -04:00
parent 8fb58bb74e
commit b3cfbe77c9
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/handin-server/main.rkt
View File

@ -678,7 +678,7 @@
(define (handle-*-request r w)
(let* ([proto (regexp-match-peek #rx#"^[^\r\n]*(?=\r?\n)" r 0 (* 4 1024))]
[proto (and proto (car proto))])
((cond [(not proto) (error 'handin "no protocol line" proto)]
((cond [(not proto) (error 'handin "no protocol line")]
[(equal? #"handin" proto) handle-handin-request]
[(regexp-match? #rx#"(?i:http/[0-9.]+)$" proto) handle-http-request]
[else (error 'handin "unknown protocol: ~e" proto)])