Rename newcont to lang

svn: r6276

collects/web-server/prototype-web-server/lang.ss

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

collects/web-server/prototype-web-server/lang/elim-callcc.ss

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

collects/web-server/prototype-web-server/lang/util.ss

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

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

@@ -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")
            (lib "servlet-helpers.ss" "web-server" "private"))
   (provide start)

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

@@ -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")
            (lib "servlet-helpers.ss" "web-server" "private")
            (lib "web-param.ss" "web-server" "prototype-web-server" "newcont"))

collects/web-server/prototype-web-server/newcont/examples/add.ss

@@ -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")
            (lib "servlet-helpers.ss" "web-server" "private"))
   (provide start)

collects/web-server/prototype-web-server/newcont/examples/temp.ss

@@ -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)
   
   (define msg (make-parameter "unknown"))

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

@@ -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")
            (lib "web-cell-component.ss" "web-server" "prototype-web-server" "newcont")
            (lib "url.ss" "net"))

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

@@ -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"))
   (provide start)
     

collects/web-server/prototype-web-server/newcont/examples/wc.ss

@@ -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")
            (lib "url.ss" "net"))
   (provide start)