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
;;;
;;; Copyright (c) 2012 Johan Ceuppens
;;; Copyright (c) 2012 Johan Ceuppens
;;;
;;; All rights reserved.
;;;
@ -37,5 +37,5 @@
(display "give port : ")
(define port (number->string (read)))
(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)))