[nongnu] elpa/geiser-gambit 6bff2b9 08/34: gambit syntax coloration + adjustment of methods list

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit 6bff2b927b31f640794dc72103db36e5881cddac
Author: mathieu2em <math.per@hotmail.com>
Commit: mathieu2em <math.per@hotmail.com>

    gambit syntax coloration + adjustment of methods list
---
 elisp/geiser-gambit.el          | 4 ++--
 scheme/gambit/geiser/gambit.scm | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el
index e839665..b7ac830 100644
--- a/elisp/geiser-gambit.el
+++ b/elisp/geiser-gambit.el
@@ -182,7 +182,7 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
 (defun geiser-gambit--exit-command () ",q")
 
 (defun geiser-gambit--symbol-begin (module)
-  (save-excursion (skip-syntax-backward "^-()>") (point)))
+  (save-excursion (skip-syntax-backward "^-()> ") (point)))
 
 (defun geiser-gambit--version (binary)
   (car (process-lines binary "-c" "(display (version))")))
@@ -235,7 +235,7 @@ If `t', Geiser will use `next-error' to jump to the error's 
location."
 ;;; Keywords and syntax
 
  (defun geiser-gambit--keywords ()
-   `(geiser-gambit--builtin-keywords))
+   `(,geiser-gambit--builtin-keywords))
 
 (geiser-syntax--scheme-indent
  (receive 2)
diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm
index 028f6ee..ee3d78a 100644
--- a/scheme/gambit/geiser/gambit.scm
+++ b/scheme/gambit/geiser/gambit.scm
@@ -262,6 +262,7 @@
     (datum-parsing-exception?
      ("args" (("required" obj) ("optional") ("key")))("module"))
     (deadlock-exception? ("args" (("required" obj) ("optional") 
("key")))("module"))
+    (define ("args" (("required") ("optional" ...) ("key")))("module"))
     (delay ("args" (("required" expression) ("optional") ("key")))("module"))
     (delete-directory ("args" (("required" path) ("optional") 
("key")))("module"))
     (delete-file ("args" (("required" path) ("optional") ("key")))("module"))