branch: elpa/geiser-gambit
commit 6bff2b927b31f640794dc72103db36e5881cddac
Author: mathieu2em <[email protected]>
Commit: mathieu2em <[email protected]>
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"))
