From b50ae83a278156a2d3667f0aa56759a44817b0a5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 3 Jan 2010 21:24:39 +0000 Subject: [PATCH] switch from scheme to scheme/base svn: r17472 --- collects/handin-server/main.ss | 1 + collects/handin-server/run-servlet.ss | 8 ++++---- collects/handin-server/web-status-server.ss | 4 +++- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.ss index 1d3c42d4f9..a310a85ca0 100644 --- a/collects/handin-server/main.ss +++ b/collects/handin-server/main.ss @@ -1,4 +1,5 @@ #lang scheme/base + (require mzlib/thread scheme/port openssl diff --git a/collects/handin-server/run-servlet.ss b/collects/handin-server/run-servlet.ss index 65fbad3301..7ac0ef6731 100644 --- a/collects/handin-server/run-servlet.ss +++ b/collects/handin-server/run-servlet.ss @@ -1,4 +1,4 @@ -#lang scheme +#lang scheme/base (define default-context-length (error-print-context-length)) @@ -6,14 +6,14 @@ ;; "web-server/servlet-env.ss", and parts from `serve/launch/wait' in ;; "web-server/servlet-dispatch.ss" -(require web-server/web-server +(require scheme/unit + scheme/async-channel + web-server/web-server web-server/servlet-dispatch web-server/managers/lru (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer) (prefix-in log: web-server/dispatchers/dispatch-log) - web-server/private/connection-manager web-server/http/request-structs - scheme/async-channel net/url openssl net/tcp-sig) diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.ss index 297cc4e2f5..e6c2af52b9 100644 --- a/collects/handin-server/web-status-server.ss +++ b/collects/handin-server/web-status-server.ss @@ -1,5 +1,7 @@ -#lang scheme +#lang scheme/base + (require scheme/list + scheme/path scheme/file scheme/date net/uri-codec