2832 |
(let ((guile-user-module (resolve-module '(guile-user)))) |
(let ((guile-user-module (resolve-module '(guile-user)))) |
2833 |
|
|
2834 |
;; Load emacs interface support if emacs option is given. |
;; Load emacs interface support if emacs option is given. |
2835 |
(if (and (module-defined? the-root-module 'use-emacs-interface) |
(if (and (module-defined? guile-user-module 'use-emacs-interface) |
2836 |
(module-ref the-root-module 'use-emacs-interface)) |
(module-ref guile-user-module 'use-emacs-interface)) |
2837 |
(load-emacs-interface)) |
(load-emacs-interface)) |
2838 |
|
|
2839 |
;; Use some convenient modules (in reverse order) |
;; Use some convenient modules (in reverse order) |