suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Abstract language API

Browse Source 
svn: r6316
This commit is contained in:
Jay McCarthy 2007-05-25 18:31:00 +00:00
parent 1384dd72c3
commit 58f6de8c6b
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/prototype-web-server/lang-api.ss Normal file
View File

@ -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")))

7
collects/web-server/prototype-web-server/lang.ss
View File

@ -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