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"
+                      "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 (only (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server")
                  send/suspend/hidden
@@ -32,4 +32,4 @@
        (compose #;(lambda (stx) (values stx empty))
                 defun
                 elim-callcc
-                (make-anormal-term elim-letrec-term)))))))
+                (make-anormal-term elim-letrec-term)))))))

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

@@ -177,4 +177,4 @@
              re))
           fe)]))
     
-    anormal-term))
+    anormal-term))

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

@@ -152,4 +152,4 @@
          (values (reverse nstxs)
                  defs)])))
   (define defun* (lift-defun defun))
-  (define defun** (lift-defun (lambda (stx) (defun* (syntax->list stx))))))
+  (define defun** (lift-defun (lambda (stx) (defun* (syntax->list stx))))))

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

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

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

@@ -136,4 +136,4 @@
       [_
        (raise-syntax-error 'elim-letrec "Dropped through:" stx)]))
   
-  (define elim-letrec-term (elim-letrec empty)))
+  (define elim-letrec-term (elim-letrec empty)))

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

@@ -135,4 +135,4 @@
       [(bound-identifier=? (car s) elt)
        (cdr s)] ;; if we maintain the no-dupe invariant then we don't need to recur
       [else (cons (car s)
-                  (sans (cdr s) elt))])))
+                  (sans (cdr s) elt))])))

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

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