scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

return of the jedi

This commit is contained in:
erana 2012-01-31 22:12:10 +09:00
parent e470eeeca9
commit e5ddf14c7d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
s48/cavespider/load.scm
View File

@ -1,7 +1,7 @@
;;; load.scm - a scheme web spidering script ;;; load.scm - a scheme web spidering script
;;; ;;;
;;; Copyright (c) 2012 Johan Ceuppens ;;; Copyright (c) 2012 Johan Ceuppens
;;; ;;;
;;; All rights reserved. ;;; All rights reserved.
;;; ;;;
@ -37,5 +37,5 @@
(display "give port : ") (display "give port : ")
(define port (number->string (read))) (define port (number->string (read)))
(newline) (newline)
(display (ask-server "GET / HTTP/1.0\r\n\r\n" "index.html" hostname port)) (display (ask-server (string-append "GET / HTTP/1.0" (string #\return #\newline #\return #\newline) "index.html" hostname port)))