[nongnu] elpa/geiser-chicken 78ce429 055/102: Adds required modules to binary parameters

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 78ce4290fbf87bf2ea40b9a79081aa8702cf79a1
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    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.
---
 elisp/geiser-chicken.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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]+> ")