[nongnu] elpa/geiser-stklos 31cfeb7e88 1/3: Use 'define-library' as beginning of module for STklos

[ELPA Syncer]

branch: elpa/geiser-stklos
commit 31cfeb7e8800cc3fff0ff2ef259925293b6b9ee3
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Jeronimo Pellegrini <j_p@aleph0.info>

    Use 'define-library' as beginning of module for STklos
    
    STklos now supports R7RS define-library, so instead of only
    'define-module' we changed the regexp to also use 'define-library' to
    determine in which module the user is.
---
 geiser-stklos.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/geiser-stklos.el b/geiser-stklos.el
index 9b1940073c..bc2833838b 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -211,7 +211,7 @@ Optional argument ARGS are the arguments to the procedure."
 ;;; Modules
 
 (defconst geiser-stklos--module-re
-  "(define-module +\\([^) ]+\\)"
+  "(define-\\(module\\|library\\) +\\([^) ]+\\)"
   "Regular expression used to try to guess which module the current file is 
associated to.")
 
 
@@ -243,9 +243,9 @@ if a closing match is not found."
 ;; find which module should be used for the position where the
 ;; cursor is.
 ;; if the user is editing text inside a module definition -- which is
-;; between "(define-module " and its closing parenthesis, then
-;; the current module should be taken as that one, so defines and sets
-;; will be done inside that module.
+;; between "(define-module " or "(define-library " and its closing
+;; parenthesis, then the current module should be taken as that one,
+;; so defines and sets will be done inside that module.
 (defun geiser-stklos--get-module (&optional module)
   "Find which MODULE should be used for the position where the cursor is."
   (cond ((null module)