From 58f6de8c6bd952e2ecccef0763ad41e2b9c7aef5 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 25 May 2007 18:31:00 +0000 Subject: [PATCH] Abstract language API svn: r6316 --- collects/web-server/prototype-web-server/lang-api.ss | 6 ++++++ collects/web-server/prototype-web-server/lang.ss | 7 ++----- 2 files changed, 8 insertions(+), 5 deletions(-) create mode 100644 collects/web-server/prototype-web-server/lang-api.ss diff --git a/collects/web-server/prototype-web-server/lang-api.ss b/collects/web-server/prototype-web-server/lang-api.ss new file mode 100644 index 0000000000..4057105705 --- /dev/null +++ b/collects/web-server/prototype-web-server/lang-api.ss @@ -0,0 +1,6 @@ +(module lang-api mzscheme + (require "private/abort-resume.ss" + "private/persistent-web-interaction.ss") + (provide (all-from "private/abort-resume.ss") + (all-from-except mzscheme #%module-begin) + (all-from "private/persistent-web-interaction.ss"))) \ No newline at end of file diff --git a/collects/web-server/prototype-web-server/lang.ss b/collects/web-server/prototype-web-server/lang.ss index cbf0abf824..134a282f40 100644 --- a/collects/web-server/prototype-web-server/lang.ss +++ b/collects/web-server/prototype-web-server/lang.ss @@ -7,12 +7,9 @@ "lang/anormal.ss" "lang/elim-callcc.ss" "lang/defun.ss") - (require "private/abort-resume.ss" - "private/persistent-web-interaction.ss") + (require "lang-api.ss") (provide (rename lang-module-begin #%module-begin)) - (provide (all-from "private/abort-resume.ss") - (all-from-except mzscheme #%module-begin) - (all-from "private/persistent-web-interaction.ss")) + (provide (all-from "lang-api.ss")) (define-syntax lang-module-begin (make-lang-module-begin