diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2006-08-18 14:21:23 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2006-08-18 14:21:23 +0000 |
| commit | fce4b99e9e7c1bbbb2e8afc23ab7f13971340116 (patch) | |
| tree | d0b2af31e46d6cf5a9c7ff4d06615c7611c1415a /emacs | |
| parent | 1e2346ae9330a4c30fdce7f5da0893a3c07a6435 (diff) | |
* gds-server.el (gds-start-server): Change "ossau" to "ice-9".
* gds-scheme.el (gds-start-utility-guile): Change "ossau" to
"ice-9".
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/ChangeLog | 7 | ||||
| -rwxr-xr-x | emacs/gds-scheme.el | 2 | ||||
| -rw-r--r-- | emacs/gds-server.el | 4 |
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 " |