21 |
;;; |
;;; |
22 |
;;; BUGS: |
;;; BUGS: |
23 |
;;; |
;;; |
|
;;; |
|
|
;;; Setup load-path |
|
24 |
|
|
|
(if (featurep 'guileint) |
|
|
nil |
|
|
|
|
25 |
(require 'cl-19 "cl") |
(require 'cl-19 "cl") |
26 |
|
|
|
(defconst guileint-init-file "guileint") |
|
|
|
|
|
(defvar guileint-emacs-dir nil) |
|
|
(let ((pathlist (getenv "EMACSSITELOAD"))) |
|
|
(if (and pathlist |
|
|
(string-match (concat "\\(\\(/[^:/]+\\)*\\)/?" |
|
|
guileint-init-file |
|
|
"\\(\.elc?\\)?\\(:\\|\\'\\)") |
|
|
pathlist)) |
|
|
(setq guileint-emacs-dir (match-string 1 pathlist)))) |
|
|
|
|
|
(defvar guileint-default-load-path load-path) |
|
|
(setq load-path |
|
|
(append (list |
|
|
guileint-emacs-dir |
|
|
) |
|
|
guileint-default-load-path |
|
|
'( |
|
|
))) |
|
|
|
|
27 |
(setq scheme-program-name |
(setq scheme-program-name |
28 |
(let ((v (getenv "SCHEME_PROGRAM_NAME"))) |
(let ((v (getenv "SCHEME_PROGRAM_NAME"))) |
29 |
(or v |
(or v |
89 |
(load "inda-scheme") |
(load "inda-scheme") |
90 |
|
|
91 |
(provide 'guileint) |
(provide 'guileint) |
|
) |
|