set svn:eol-style and newlines at eofs

svn: r6275

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

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

collects/web-server/prototype-web-server/newcont/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/newcont/elim-callcc.ss

@@ -170,6 +170,5 @@
      [(#%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/newcont/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/newcont/examples/add-param.ss

@@ -35,4 +35,4 @@
                         (+ (parameterize ([msg "first"])
                              (gn))
                            (parameterize ([msg "second"])
-                             (gn)))))))))
+                             (gn)))))))))

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

@@ -36,4 +36,4 @@
                         (+ (web-parameterize ([msg "first"])
                                              (gn))
                            (web-parameterize ([msg "second"])
-                                             (gn)))))))))
+                                             (gn)))))))))

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

@@ -32,4 +32,4 @@
            (body
             (h1 "Final Page")
             (p ,(format "The answer is ~a"
-                        (+ (get-number "first") (get-number "second"))))))))
+                        (+ (get-number "first") (get-number "second"))))))))

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

@@ -15,4 +15,4 @@
              (parameterize ([msg "first"])
                (gn "first" 12))
              (parameterize ([msg "second"])
-               (gn "second" 1))))))
+               (gn "second" 1))))))

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

@@ -34,4 +34,4 @@
                          (web-cell-mask a-counter (add1 last))
                          ; The new frame has been modified
                          (counter))))])
-             "+"))))
+             "+"))))

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

@@ -29,4 +29,4 @@
                            "Increment")))])
         (values include
                 my-counter
-                other-counter)))))
+                other-counter)))))

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

@@ -40,4 +40,4 @@
                                 ; The new frame has been modified
                                 (generate))))])
                     "+")))))
-      (generate))))
+      (generate))))

collects/web-server/prototype-web-server/newcont/file-box.ss

@@ -26,4 +26,4 @@
    [file-box (path? any/c . -> . file-box?)]
    [file-unbox (file-box? . -> . any/c)]
    [file-box-set? (file-box? . -> . boolean?)]
-   [file-box-set! (file-box? any/c . -> . void)]))
+   [file-box-set! (file-box? any/c . -> . void)]))

collects/web-server/prototype-web-server/newcont/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/newcont/newcont.ss

@@ -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/newcont/util.ss

@@ -189,6 +189,5 @@
       [(#%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/web-cell-component.ss

@@ -12,4 +12,4 @@
                (k
                 (lambda (embed/url)
                   body ...)))
-             (id))))])))
+             (id))))])))

collects/web-server/prototype-web-server/newcont/web-cells.ss

@@ -83,4 +83,4 @@
    #;[make-web-cell* (symbol? any/c . -> . web-cell?)]
    [web-cell? (any/c . -> . boolean?)]
    [web-cell-ref (web-cell? . -> . any/c)]
-   [web-cell-mask (web-cell? any/c . -> . void)]))
+   [web-cell-mask (web-cell? any/c . -> . void)]))

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

@@ -52,4 +52,4 @@
       [(_ ([wp ve] ...) e ...)
        (with-syntax ([(v ...) (generate-temporaries (syntax->list #'(ve ...)))])
          #'(let ([v ve] ...)
-             (web-parameterize/values ([wp v] ...) e ...)))])))
+             (web-parameterize/values ([wp v] ...) e ...)))])))