[nongnu] elpa/geiser-gambit 319995232a 1/2: Adjust to namespace changes in gambit v4.9.4

[ELPA Syncer]

branch: elpa/geiser-gambit
commit 319995232a78656f8d8581616320bbf248d1e85a
Author: Tara Lorenz <tara@terralonza.de>
Commit: jao <jao@gnu.org>

    Adjust to namespace changes in gambit v4.9.4
    
    The namespace (and path) of the builtin geiser module changed from
    gambit/geiser to _geiser
    
    - geiser-gambit--parameters uses correct builtin module path
    - changed namespace for the version shipping with geiser to the same
      as used in upstream gambit
    - changed uses of namespace in geiser-gambit.el accordingly
---
 geiser-gambit.el      | 14 +++++++-------
 src/geiser/gambit.scm |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/geiser-gambit.el b/geiser-gambit.el
index f8a80becdc..fc4f26fa83 100644
--- a/geiser-gambit.el
+++ b/geiser-gambit.el
@@ -126,7 +126,7 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
   :group 'geiser-gambit)
 
 ;;; evaluation support when module loaded at opening
-;;; the gambit/geiser# is the namespace of geiser module for gambit
+;;; the _geiser# is the namespace of geiser module for gambit
 (defun geiser-gambit--geiser-procedure (proc &rest args)
   "Transform PROC in string for a scheme procedure using ARGS."
   (cl-case proc
@@ -139,15 +139,15 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
                            (concat "'" (car args)))
                           (t
                            "#f")))
-            (cmd (format "(gambit/geiser#geiser:eval %s '%s)" module form)))
+            (cmd (format "(_geiser#geiser:eval %s '%s)" module form)))
        cmd))
     ((load-file compile-file)
-     (format "(gambit/geiser#geiser:load-file %s)" (car args)))
+     (format "(_geiser#geiser:load-file %s)" (car args)))
     ((no-values)
-     "(gambit/geiser#geiser:no-values)")
+     "(_geiser#geiser:no-values)")
     (t
      (let ((form (mapconcat 'identity args " ")))
-       (format "(gambit/geiser#geiser:%s %s)" proc form)))))
+       (format "(_geiser#geiser:%s %s)" proc form)))))
 
 ;;(defconst geiser-gambit--module-re
 ;;  "( *module +\\(([^)]+)\\|[^ ]+\\)\\|( *define-library +\\(([^)]+)\\|[^ 
]+\\)")
@@ -314,8 +314,8 @@ If t, Geiser will use `next-error' to jump to the error's 
location."
   (let* ((v (geiser-gambit--version (geiser-gambit--binary)))
         (gambit-version (geiser--cut-version v)))
     (if (version< gambit-version "4.9.4")
-       `( "-:d-" ,(expand-file-name "geiser/gambit.scm" 
geiser-gambit-scheme-dir) "-" )
-      `("-:d-" "gambit/geiser.scm" "-"))))
+    `( "-:d-" ,(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir) 
"-" )
+      `("-:d-" "_geiser" "-"))))
 
 ;;;###autoload
 (defun connect-to-gambit ()
diff --git a/src/geiser/gambit.scm b/src/geiser/gambit.scm
index e7c760c556..cff56ff601 100644
--- a/src/geiser/gambit.scm
+++ b/src/geiser/gambit.scm
@@ -1,6 +1,6 @@
 ;; scheme
 ;;; gambit.scm gambit geiser interaction
-(##namespace ("gambit/geiser#")) ;; in gambit/geiser#
+(##namespace ("_geiser#")) ;; in _geiser#
 (##include "~~lib/gambit#.scm") ;; for macro-check-string,
 ;; macro-absent-obj, etc