From e5ddf14c7da0a22af0230e96a42cb9a712ec46ea Mon Sep 17 00:00:00 2001 From: erana Date: Tue, 31 Jan 2012 22:12:10 +0900 Subject: [PATCH] return of the jedi --- s48/cavespider/load.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/s48/cavespider/load.scm b/s48/cavespider/load.scm index 26c922d..0158847 100644 --- a/s48/cavespider/load.scm +++ b/s48/cavespider/load.scm @@ -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)))