[nongnu] elpa/geiser-stklos 52acf7c 24/30: Fix fatal thinko (docstring / const value mixup)

[Philip Kaludercic]

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

    Fix fatal thinko (docstring / const value mixup)
---
 geiser-stklos.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/geiser-stklos.el b/geiser-stklos.el
index 99a8302..9486689 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -105,7 +105,9 @@ This function uses `geiser-stklos-init-file' if it exists."
 ;; STklos' prompt is  "MODULE> ". The regexp is "[^>]*> ".
 ;; Not perfect, because if a module has a ">" sign
 ;; in its name, things break...
-(defconst geiser-stklos--prompt-regexp "[^>]*> ")
+(defconst geiser-stklos--prompt-regexp
+  "[^>]*> "
+  "A string containing a regexp that wil llikely match STklos' prompt")
 
 
 ;;; Evaluation support:
@@ -137,8 +139,8 @@ Optional argument ARGS are the arguments to the procedure."
 ;;; Modules
 
 (defconst geiser-stklos--module-re
-  "Regular expression used to try to guess which module the current file is 
associated to."
-  "(define-module +\\([^) ]+\\)")
+  "(define-module +\\([^) ]+\\)"
+  "Regular expression used to try to guess which module the current file is 
associated to.")
 
 
 (defun geiser-stklos--find-close-par (&optional start-point)
@@ -252,8 +254,8 @@ if a closing match is not found."
 ;; but there is a string "stklos>" there. I see no way
 ;; to prevent this.
 (defconst geiser-stklos--guess-re
-  "Regular expression used to detect the STklos REPL."
-  (regexp-opt '("stklos>")))
+  (regexp-opt '("stklos>"))
+  "Regular expression used to detect the STklos REPL.")
 
 (defun geiser-stklos--guess ()
   "Try to ascertain whether a buffer is STklos Scheme."
@@ -266,8 +268,8 @@ if a closing match is not found."
 ;; Minimum version of STklos supported. If a less recent version
 ;; is used, Geiser will refuse to start.
 (defconst geiser-stklos-minimum-version
-  "A string containing the minimum version of STklos that we support."
-  "1.50")
+  "1.50"
+  "A string containing the minimum version of STklos that we support.")
 
 ;; this function obtains the version of the STklos binary
 ;; available.
@@ -289,14 +291,14 @@ Argument BINARY is a string containing the binary name."
 
 
 (defconst geiser-stklos-builtin-keywords
-  "These are symbols that we want to be highlighted in STklos code."
   '("assume"
     "fluid-let"
     "dotimes"
     "macro-expand"
     "define-struct"
     "call/ec"
-    "with-handler" ))
+    "with-handler" )
+    "These are symbols that we want to be highlighted in STklos code.")
 
 (defun geiser-stklos--keywords ()
   "The symbols that are to be highlighted as keywords, besides the standard 
Scheme ones."