mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

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

Browse source 
* gds-scheme.el (gds-start-utility-guile): Change "ossau" to
"ice-9".
This commit is contained in:
Neil Jerram 2006-08-18 14:21:23 +00:00
parent 1e2346ae93
commit fce4b99e9e
3 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
emacs/ChangeLog
View file

@ -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.

2
emacs/gds-scheme.el
View file

@ -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 "

4
emacs/gds-server.el
View file

@ -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 "