From 97715dc9fbebf203d5baf90a7fcedcb4c5ae9cf1 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 2 May 2008 18:03:05 +0000
Subject: [PATCH] Use library nest.

svn: r9598
---
 collects/typed-scheme/private/nest.ss | 10 ----------
 collects/typed-scheme/typed-scheme.ss |  5 ++---
 2 files changed, 2 insertions(+), 13 deletions(-)
 delete mode 100644 collects/typed-scheme/private/nest.ss

diff --git a/collects/typed-scheme/private/nest.ss b/collects/typed-scheme/private/nest.ss
deleted file mode 100644
index 1cccc99ed0..0000000000
--- a/collects/typed-scheme/private/nest.ss
+++ /dev/null
@@ -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 ...))]))
diff --git a/collects/typed-scheme/typed-scheme.ss b/collects/typed-scheme/typed-scheme.ss
index 2b089da668..cb4f38d0d8 100644
--- a/collects/typed-scheme/typed-scheme.ss
+++ b/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]