From 060cce72db44835f77078b6cecbccdd479a8b432 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 1 Sep 2008 23:45:20 -0700
Subject: [PATCH] remove the-environment, the-root-environment,
 environment-module

* ice-9/boot-9.scm (the-environment, the-root-environment)
  (environment-module): Remove these representation of the interpreter's
  idea of the environment, because they are not valid in the compiled
  case, and are not part of the scheme spec anyway.
---
 ice-9/boot-9.scm | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d52a2b4de..b3a81d94a 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -337,22 +337,6 @@
 
 
 
-;;; {Environments}
-;;;
-
-(define the-environment
-  (procedure->syntax
-   (lambda (x e)
-     e)))
-
-(define the-root-environment (the-environment))
-
-(define (environment-module env)
-  (let ((closure (and (pair? env) (car (last-pair env)))))
-    (and closure (procedure-property closure 'module))))
-
-
-
 ;;; {Records}
 ;;;