Use library nest.

svn: r9598

collects/typed-scheme/private/nest.ss

@@ -1,10 +0,0 @@
-#lang scheme/base
-
-(provide nest)
-
-(define-syntax nest
-  (syntax-rules ()
-    [(nest () body0 body ...)
-     (let () body0 body ...)]
-    [(nest ([form forms ...] . more) body0 body ...)
-     (form forms ... (nest more body0 body ...))]))

collects/typed-scheme/typed-scheme.ss

@@ -22,7 +22,7 @@
           "private/effect-rep.ss"
           "private/rep-utils.ss"
           "private/type-contract.ss"
-          "private/nest.ss"
+          scheme/nest
           syntax/kerncase
           scheme/match))
 
@@ -81,8 +81,7 @@
                           (local-expand #`(#%plain-module-begin 
                                            forms ...)
                                         'module-begin 
-                                        null
-                                        #;stop-list)])]
+                                        null)])]
            [with-syntax ([(pmb body2 ...) #'new-mod])]
            [begin (do-time "Local Expand Done")]
            [with-syntax ([after-code (parameterize ([orig-module-stx stx]