[nongnu] elpa/geiser-gauche 96fa06aaee 2/3: fix autodoc functionality

[ELPA Syncer]

branch: elpa/geiser-gauche
commit 96fa06aaeef18cc1b3b519e83dbb7be09eeb0d07
Author: Fabian Brosda <f.brosda@gmx.de>
Commit: Fabian Brosda <f.brosda@gmx.de>

    fix autodoc functionality
    
    When get-module returns `:f`, rewrite it to "'#f" in the gauche
    expression.
---
 geiser-gauche.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 2c425d1d5b..4f534ff56a 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -229,7 +229,10 @@
        (replace-regexp-in-string
        "{{cur-module}}"
        (if (string= module "'#f")
-           (format "'%s" (geiser-gauche--get-module))
+           (let ((cur-module (geiser-gauche--get-module)))
+             (if (eq cur-module :f)
+                 "'#f"
+               (format "'%s" cur-module)))
          module)
        (format "(eval '(geiser:eval %s '%s) (find-module 'geiser))" module 
form))))
     ;; The rest of the commands are all evaluated in the geiser module