diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2016-08-09 16:34:31 -0700 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2016-08-10 20:09:59 -0700 |
| commit | 9f93205d32bfe1725ec39779493d12fbbe5fd605 (patch) | |
| tree | c62092ed51875c7167bc101e9f32d44fdecdaaa3 | |
| parent | 7590c8029791e512012102ab0c07b2684e09d09d (diff) | |
| download | geiser-guile-9f93205d32bfe1725ec39779493d12fbbe5fd605.tar.gz geiser-guile-9f93205d32bfe1725ec39779493d12fbbe5fd605.tar.bz2 | |
Adds required modules to binary parameters
-This causes chicken to fail to run if it cannot find the required
modules for Geiser; and will tell the user that the module is missing.
| -rw-r--r-- | elisp/geiser-chicken.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el index f9da976..12ca006 100644 --- a/elisp/geiser-chicken.el +++ b/elisp/geiser-chicken.el @@ -104,6 +104,9 @@ this variable to t." :type 'boolean :group 'geiser-chicken) +(defvar geiser-chicken--required-modules + (list "chicken-doc" "apropos" "data-structures" "extras" "ports" "posix" "srfi-1" "srfi-13" "srfi-14" "srfi-18" "srfi-69" "tcp" "utils")) + ;;; REPL support: @@ -122,7 +125,9 @@ This function uses `geiser-chicken-init-file' if it exists." ,@n-flags "-include-path" ,(expand-file-name "chicken/" geiser-scheme-dir) ,@(apply 'append (mapcar (lambda (p) (list "-include-path" p)) geiser-chicken-load-path)) - ,@(and init-file (file-readable-p init-file) (list init-file))))) + ,@(and init-file (file-readable-p init-file) (list init-file)) + ,@(apply 'append (mapcar (lambda (m) (list "-R" m)) + geiser-chicken--required-modules))))) (defconst geiser-chicken--prompt-regexp "#[^;]*;[^:0-9]*:?[0-9]+> ") |