* gds-server.el (gds-start-server): Change "ossau" to "ice-9".

* gds-scheme.el (gds-start-utility-guile): Change "ossau" to
"ice-9".

3 files changed, 10 insertions, 3 deletions

diff --git a/emacs/ChangeLog b/emacs/ChangeLog
index 2396af25c..6786c2844 100644
--- a/emacs/ChangeLog
+++ b/emacs/ChangeLog
@@ -1,3 +1,10 @@
+2006-08-18  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* gds-server.el (gds-start-server): Change "ossau" to "ice-9".
+
+	* gds-scheme.el (gds-start-utility-guile): Change "ossau" to
+	"ice-9".
+
 2006-06-19  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* Makefile.am: New file.
diff --git a/emacs/gds-scheme.el b/emacs/gds-scheme.el
index f5d235edf..8fb4ca2af 100755
--- a/emacs/gds-scheme.el
+++ b/emacs/gds-scheme.el
@@ -194,7 +194,7 @@ Emacs to display an error or trap so that the user can debug it."
   (let* ((procname (format "gds-util[%d]" gds-last-utility-number))
          (code (format "(begin
                           %s
-                          (use-modules (ossau gds-client))
+                          (use-modules (ice-9 gds-client))
                           (run-utility))"
 		       (if gds-scheme-directory
 			   (concat "(set! %load-path (cons "
diff --git a/emacs/gds-server.el b/emacs/gds-server.el
index cca23c836..722e613db 100644
--- a/emacs/gds-server.el
+++ b/emacs/gds-server.el
@@ -26,7 +26,7 @@
   :group 'scheme)
 
 
-;;;; Communication with the (ossau gds-server) subprocess.
+;;;; Communication with the (ice-9 gds-server) subprocess.
 
 ;; Subprocess output goes into the `*GDS Process*' buffer, and
 ;; is then read from there one form at a time.  `gds-read-cursor' is
@@ -54,7 +54,7 @@ the same as the process name."
     (erase-buffer)
     (let* ((code (format "(begin
                             %s
-                            (use-modules (ossau gds-server))
+                            (use-modules (ice-9 gds-server))
                             (run-server %d))"
 			 (if gds-scheme-directory
 			     (concat "(set! %load-path (cons "