From 05b7af09862e666d738d58ffbf967d083a5425c2 Mon Sep 17 00:00:00 2001 From: interp Date: Fri, 17 Jan 2003 17:40:30 +0000 Subject: [PATCH] READ-LINE does the job as well as READ-CRLF-IO, so kick CRLF-IO. --- .../surflets/web-server/root/surflets/news.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/news.scm b/scheme/httpd/surflets/web-server/root/surflets/news.scm index 1f794ed..3ee1e81 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/news.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/news.scm @@ -1,18 +1,15 @@ (define-structure servlet servlet-interface (open scheme-with-scsh - servlets - crlf-io) + servlets) (begin (define *data* '()) (define (read-data) (let ((news-input (open-input-file "news.txt"))) - (let loop ((next-line (read-crlf-line news-input))) - (if (eof-object? next-line) - (close news-input) - (begin - (set! *data* (cons next-line *data*)) - (loop (read-crlf-line news-input))))))) + (do ((next-line (read-line news-input) + (read-line news-input))) + ((eof-object? next-line) (close news-input)) + (set! *data* (cons next-line *data*))))) (define (main req) (if (null? *data*) (read-data))