Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing open-net-io to include socket in list of results.

Browse source
This commit is contained in:
Alex Shinn 2012-10-15 20:12:57 +09:00
parent c4edcc8d78
commit 4a86e133a9
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/net.scm
View file

@ -42,7 +42,8 @@
(cond-expand (cond-expand
(threads (set-file-descriptor-flags! sock open/non-block)) (threads (set-file-descriptor-flags! sock open/non-block))
(else #f)) (else #f))
(list (open-input-file-descriptor sock #t) (list sock
(open-input-file-descriptor sock #t)
(open-output-file-descriptor sock #t))))))))) (open-output-file-descriptor sock #t)))))))))
;;> Convenience wrapper around @scheme{open-net-io}, opens ;;> Convenience wrapper around @scheme{open-net-io}, opens

4
lib/chibi/net/http.scm
View file

@ -75,8 +75,8 @@
host host
(or (uri-port uri) (or (uri-port uri)
(if (eq? 'https (uri-scheme uri)) 443 80)))) (if (eq? 'https (uri-scheme uri)) 443 80))))
(in (car io)) (in (cadr io))
(out (car (cdr io)))) (out (car (cddr io))))
(display "GET " out) (display "GET " out)
(display (or (uri-path uri) "/") out) (display (or (uri-path uri) "/") out)
(display " HTTP/1.0\r\n" out) (display " HTTP/1.0\r\n" out)