From 38a760b5b2236bda37ddea98de2d32d31ab3412e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Nov 2005 19:29:18 +0000
Subject: [PATCH] Export database open/close procedures to expanders.

---
 v7/src/xdoc/xdoc.pkg | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/v7/src/xdoc/xdoc.pkg b/v7/src/xdoc/xdoc.pkg
index 648b32c39..0cb15b2bf 100644
--- a/v7/src/xdoc/xdoc.pkg
+++ b/v7/src/xdoc/xdoc.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: xdoc.pkg,v 1.5 2004/11/24 20:56:35 cph Exp $
+$Id: xdoc.pkg,v 1.6 2005/11/03 19:29:18 cph Exp $
 
-Copyright 2004 Massachusetts Institute of Technology
+Copyright 2004,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -182,6 +182,8 @@ USA.
 	  db-save-output!
 	  db-set-persistent-value!)
   (export (runtime ssp-expander-environment)
+	  close-database
+	  database-connection
 	  db-change-user-password
 	  db-clear-late-flag
 	  db-clear-submitter
@@ -216,4 +218,5 @@ USA.
 	  db-user-administrator?
 	  db-user-enabled?
 	  db-user-real-name
-	  db-valid-password?))
\ No newline at end of file
+	  db-valid-password?
+	  with-database-connection))
\ No newline at end of file
-- 
2.25.1