diff --git a/collects/web-server/prototype-web-server/newcont/anormal.ss b/collects/web-server/prototype-web-server/newcont/anormal.ss index 8e72e81e31..34671e75b5 100644 --- a/collects/web-server/prototype-web-server/newcont/anormal.ss +++ b/collects/web-server/prototype-web-server/newcont/anormal.ss @@ -177,4 +177,4 @@ re)) fe)])) - anormal-term)) \ No newline at end of file + anormal-term)) diff --git a/collects/web-server/prototype-web-server/newcont/defun.ss b/collects/web-server/prototype-web-server/newcont/defun.ss index 6dd10413f9..b4d32110a6 100644 --- a/collects/web-server/prototype-web-server/newcont/defun.ss +++ b/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)))))) \ No newline at end of file + (define defun** (lift-defun (lambda (stx) (defun* (syntax->list stx)))))) diff --git a/collects/web-server/prototype-web-server/newcont/elim-callcc.ss b/collects/web-server/prototype-web-server/newcont/elim-callcc.ss index ee093c4d31..b06314f172 100644 --- a/collects/web-server/prototype-web-server/newcont/elim-callcc.ss +++ b/collects/web-server/prototype-web-server/newcont/elim-callcc.ss @@ -170,6 +170,5 @@ [(#%variable-reference . v) stx] [id (identifier? #'id) - stx] - [_ - (raise-syntax-error 'elim-callcc "Dropped through:" stx)]))) \ No newline at end of file + stx] + [_ (raise-syntax-error 'elim-callcc "Dropped through:" stx)]))) diff --git a/collects/web-server/prototype-web-server/newcont/elim-letrec.ss b/collects/web-server/prototype-web-server/newcont/elim-letrec.ss index 5f34b1ac17..d7c66d87a3 100644 --- a/collects/web-server/prototype-web-server/newcont/elim-letrec.ss +++ b/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))) \ No newline at end of file + (define elim-letrec-term (elim-letrec empty))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/add-param.ss b/collects/web-server/prototype-web-server/newcont/examples/add-param.ss index 40751d99b0..e75730d5d1 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/add-param.ss +++ b/collects/web-server/prototype-web-server/newcont/examples/add-param.ss @@ -35,4 +35,4 @@ (+ (parameterize ([msg "first"]) (gn)) (parameterize ([msg "second"]) - (gn))))))))) \ No newline at end of file + (gn))))))))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/add-simple.ss b/collects/web-server/prototype-web-server/newcont/examples/add-simple.ss index 839d500a81..3bae9c658d 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/add-simple.ss +++ b/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))))))))) \ No newline at end of file + (gn))))))))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/add.ss b/collects/web-server/prototype-web-server/newcont/examples/add.ss index 9895da514e..ce0666403f 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/add.ss +++ b/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")))))))) \ No newline at end of file + (+ (get-number "first") (get-number "second")))))))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/temp.ss b/collects/web-server/prototype-web-server/newcont/examples/temp.ss index 7eb9e22483..ee74d8ae89 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/temp.ss +++ b/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)))))) \ No newline at end of file + (gn "second" 1)))))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/wc-comp.ss b/collects/web-server/prototype-web-server/newcont/examples/wc-comp.ss index a48aa9efec..b6a0a3bb72 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/wc-comp.ss +++ b/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))))]) - "+")))) \ No newline at end of file + "+")))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/wc-fake.ss b/collects/web-server/prototype-web-server/newcont/examples/wc-fake.ss index 340fd8de19..dfad273882 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/wc-fake.ss +++ b/collects/web-server/prototype-web-server/newcont/examples/wc-fake.ss @@ -29,4 +29,4 @@ "Increment")))]) (values include my-counter - other-counter))))) \ No newline at end of file + other-counter))))) diff --git a/collects/web-server/prototype-web-server/newcont/examples/wc.ss b/collects/web-server/prototype-web-server/newcont/examples/wc.ss index 873a1ec4dc..fcedd9c6ff 100644 --- a/collects/web-server/prototype-web-server/newcont/examples/wc.ss +++ b/collects/web-server/prototype-web-server/newcont/examples/wc.ss @@ -40,4 +40,4 @@ ; The new frame has been modified (generate))))]) "+"))))) - (generate)))) \ No newline at end of file + (generate)))) diff --git a/collects/web-server/prototype-web-server/newcont/file-box.ss b/collects/web-server/prototype-web-server/newcont/file-box.ss index 09c7228ca7..fda2ddedef 100644 --- a/collects/web-server/prototype-web-server/newcont/file-box.ss +++ b/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)])) \ No newline at end of file + [file-box-set! (file-box? any/c . -> . void)])) diff --git a/collects/web-server/prototype-web-server/newcont/freevars.ss b/collects/web-server/prototype-web-server/newcont/freevars.ss index ab66eb8e45..2df37c16f2 100644 --- a/collects/web-server/prototype-web-server/newcont/freevars.ss +++ b/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))]))) \ No newline at end of file + (sans (cdr s) elt))]))) diff --git a/collects/web-server/prototype-web-server/newcont/newcont.ss b/collects/web-server/prototype-web-server/newcont/newcont.ss index 71fa7dba89..67d2c70c2f 100644 --- a/collects/web-server/prototype-web-server/newcont/newcont.ss +++ b/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))))))) \ No newline at end of file + (make-anormal-term elim-letrec-term))))))) diff --git a/collects/web-server/prototype-web-server/newcont/util.ss b/collects/web-server/prototype-web-server/newcont/util.ss index bf61f2f949..6780aabbdf 100644 --- a/collects/web-server/prototype-web-server/newcont/util.ss +++ b/collects/web-server/prototype-web-server/newcont/util.ss @@ -189,6 +189,5 @@ [(#%variable-reference . v) stx] [id (identifier? #'id) - stx] - [_ - (raise-syntax-error 'kerncase "Dropped through:" stx)]))) \ No newline at end of file + stx] + [_ (raise-syntax-error 'kerncase "Dropped through:" stx)]))) diff --git a/collects/web-server/prototype-web-server/newcont/web-cell-component.ss b/collects/web-server/prototype-web-server/newcont/web-cell-component.ss index c6f9930936..cd8f381ad7 100644 --- a/collects/web-server/prototype-web-server/newcont/web-cell-component.ss +++ b/collects/web-server/prototype-web-server/newcont/web-cell-component.ss @@ -12,4 +12,4 @@ (k (lambda (embed/url) body ...))) - (id))))]))) \ No newline at end of file + (id))))]))) diff --git a/collects/web-server/prototype-web-server/newcont/web-cells.ss b/collects/web-server/prototype-web-server/newcont/web-cells.ss index eff299eb0b..aa48f7f393 100644 --- a/collects/web-server/prototype-web-server/newcont/web-cells.ss +++ b/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)])) \ No newline at end of file + [web-cell-mask (web-cell? any/c . -> . void)])) diff --git a/collects/web-server/prototype-web-server/newcont/web-param.ss b/collects/web-server/prototype-web-server/newcont/web-param.ss index fb5429fc84..f64a772fa2 100644 --- a/collects/web-server/prototype-web-server/newcont/web-param.ss +++ b/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 ...)))]))) \ No newline at end of file + (web-parameterize/values ([wp v] ...) e ...)))])))