diff --git a/s48/cavespider/client.scm b/s48/cavespider/client.scm index ba79553..6c79886 100644 --- a/s48/cavespider/client.scm +++ b/s48/cavespider/client.scm @@ -1,6 +1,6 @@ ;;; client.scm - connect-to-server utility ;;; -;;; Copyright (c) 2012 Johan Ceuppens +;;; Copyright (c) 2012 Johan Ceuppens ;;; ;;; All rights reserved. ;;; @@ -26,8 +26,8 @@ ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -;;(load "util.scm") -;;(load "html.scm") +(load "util.scm") +(load "html.scm") ;;,open posix posix-files (define server-data @@ -85,7 +85,7 @@ ) )) )) - + ; (let ((contents (file->contents (string-append dir-filename "/" filename)))) ; (display contents) diff --git a/s48/cavespider/util.scm b/s48/cavespider/util.scm index b50f7b6..8f0ab0a 100644 --- a/s48/cavespider/util.scm +++ b/s48/cavespider/util.scm @@ -1,5 +1,5 @@ ;;; -;;; Copyright (c) 2012 Johan Ceuppens +;;; Copyright (c) 2012 Johan Ceuppens ;;; ;;; All rights reserved. ;;; @@ -26,12 +26,13 @@ ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (load "file-util.scm") -(load "hash-util.scm") (display "Do you want to use hash tables (y/n)?") (let ((c (read-char))) (if (eq? c #\y) (load "string-util-alt.scm") - (load "string-util.scm"))) + (begin + (load "hash-util.scm") + (load "string-util.scm")))) (load "html-util.scm")