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}
 ;;;