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

Rename newcont to lang

Browse Source 
svn: r6276
This commit is contained in:
Jay McCarthy 2007-05-24 20:25:40 +00:00
parent 3e90bd984f
commit ef18c5ac86
14 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/prototype-web-server/newcont/newcont.ss → collects/web-server/prototype-web-server/lang.ss
View File

@ -1,11 +1,11 @@
(module newcont mzscheme (module lang mzscheme
(require-for-syntax (lib "etc.ss") (require-for-syntax (lib "etc.ss")
(lib "labels.ss" "web-server" "prototype-web-server") (lib "labels.ss" "web-server" "prototype-web-server")
"util.ss" "lang/util.ss"
"elim-letrec.ss" "lang/elim-letrec.ss"
"anormal.ss" "lang/anormal.ss"
"elim-callcc.ss" "lang/elim-callcc.ss"
"defun.ss") "lang/defun.ss")
(require (lib "abort-resume.ss" "web-server" "prototype-web-server")) (require (lib "abort-resume.ss" "web-server" "prototype-web-server"))
(require (only (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server") (require (only (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server")
send/suspend/hidden send/suspend/hidden

0
collects/web-server/prototype-web-server/newcont/anormal.ss → collects/web-server/prototype-web-server/lang/anormal.ss
View File

0
collects/web-server/prototype-web-server/newcont/defun.ss → collects/web-server/prototype-web-server/lang/defun.ss
View File

5
collects/web-server/prototype-web-server/newcont/elim-callcc.ss → collects/web-server/prototype-web-server/lang/elim-callcc.ss
View File

@ -170,5 +170,6 @@
[(#%variable-reference . v) [(#%variable-reference . v)
stx] stx]
[id (identifier? #'id) [id (identifier? #'id)
stx] stx]
[_ (raise-syntax-error 'elim-callcc "Dropped through:" stx)]))) [_
(raise-syntax-error 'elim-callcc "Dropped through:" stx)])))

0
collects/web-server/prototype-web-server/newcont/elim-letrec.ss → collects/web-server/prototype-web-server/lang/elim-letrec.ss
View File

0
collects/web-server/prototype-web-server/newcont/freevars.ss → collects/web-server/prototype-web-server/lang/freevars.ss
View File

5
collects/web-server/prototype-web-server/newcont/util.ss → collects/web-server/prototype-web-server/lang/util.ss
View File

@ -189,5 +189,6 @@
[(#%variable-reference . v) [(#%variable-reference . v)
stx] stx]
[id (identifier? #'id) [id (identifier? #'id)
stx] stx]
[_ (raise-syntax-error 'kerncase "Dropped through:" stx)]))) [_
(raise-syntax-error 'kerncase "Dropped through:" stx)])))

2
collects/web-server/prototype-web-server/newcont/examples/add-param.ss
View File

@ -1,4 +1,4 @@
(module add-param (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module add-param (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "url.ss" "net") (require (lib "url.ss" "net")
(lib "servlet-helpers.ss" "web-server" "private")) (lib "servlet-helpers.ss" "web-server" "private"))
(provide start) (provide start)

2
collects/web-server/prototype-web-server/newcont/examples/add-simple.ss
View File

@ -1,4 +1,4 @@
(module add-simple (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module add-simple (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "url.ss" "net") (require (lib "url.ss" "net")
(lib "servlet-helpers.ss" "web-server" "private") (lib "servlet-helpers.ss" "web-server" "private")
(lib "web-param.ss" "web-server" "prototype-web-server" "newcont")) (lib "web-param.ss" "web-server" "prototype-web-server" "newcont"))

2
collects/web-server/prototype-web-server/newcont/examples/add.ss
View File

@ -1,4 +1,4 @@
(module add (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module add (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "url.ss" "net") (require (lib "url.ss" "net")
(lib "servlet-helpers.ss" "web-server" "private")) (lib "servlet-helpers.ss" "web-server" "private"))
(provide start) (provide start)

2
collects/web-server/prototype-web-server/newcont/examples/temp.ss
View File

@ -1,4 +1,4 @@
(module temp (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module temp (lib "lang.ss" "web-server" "prototype-web-server")
(provide start) (provide start)
(define msg (make-parameter "unknown")) (define msg (make-parameter "unknown"))

2
collects/web-server/prototype-web-server/newcont/examples/wc-comp.ss
View File

@ -1,4 +1,4 @@
(module wc-comp (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module wc-comp (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont") (require (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont")
(lib "web-cell-component.ss" "web-server" "prototype-web-server" "newcont") (lib "web-cell-component.ss" "web-server" "prototype-web-server" "newcont")
(lib "url.ss" "net")) (lib "url.ss" "net"))

2
collects/web-server/prototype-web-server/newcont/examples/wc-fake.ss
View File

@ -1,4 +1,4 @@
(module wc-fake (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module wc-fake (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "url.ss" "net")) (require (lib "url.ss" "net"))
(provide start) (provide start)

2
collects/web-server/prototype-web-server/newcont/examples/wc.ss
View File

@ -1,4 +1,4 @@
(module wc (lib "newcont.ss" "web-server" "prototype-web-server" "newcont") (module wc (lib "lang.ss" "web-server" "prototype-web-server")
(require (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont") (require (lib "web-cells.ss" "web-server" "prototype-web-server" "newcont")
(lib "url.ss" "net")) (lib "url.ss" "net"))
(provide start) (provide start)