From: Tim Vaughan Date: Sat, 25 May 2019 11:47:45 +0000 (+0200) Subject: Added missing termination periods to text and index output. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=42a6a2732ebb0484460f089ca87acfe74d7fbb6b;p=scratchy.git Added missing termination periods to text and index output. --- diff --git a/burrower.scm b/burrower.scm index e600f90..2886a07 100644 --- a/burrower.scm +++ b/burrower.scm @@ -25,7 +25,7 @@ (define burrower-footer (conc "\n" "--------------------------------------------------\n" - "This gopher hole was dug using Burrower v" burrower-version "\n" + "This gopher hole was dug using Burrower v" burrower-version ".\n" "Powered by Chicken Scheme!")) ;;; Server loop @@ -134,18 +134,21 @@ (serve-info-records (read-line))) (loop (peek-char))))))) (if (config-display-footer config) - (serve-info-records burrower-footer))) + (serve-info-records burrower-footer)) + (print ".\r")) (error "Index file not found.")))) (define (serve-text-file selector config) (let ((filename (make-pathname (config-root-dir config) selector))) (if (legal-filename? filename config) - (with-input-from-file filename - (lambda () - (for-each - (lambda (line) - (print line "\r")) - (read-lines)))) + (begin + (with-input-from-file filename + (lambda () + (for-each + (lambda (line) + (print line "\r")) + (read-lines)))) + (print ".\r")) (error "File not found." filename)))) (define (serve-binary-file selector config) @@ -304,9 +307,9 @@ (config-port-set! config (string->number (caddr args)))) (run-server config))))))) -(main) +;; (main) -;; (define (test) -;; (run-server (make-config "gopher-root" "localhost" 70 #t))) +(define (test) + (run-server (make-config "gopher-root" "localhost" 70 #t))) ;; (test)