From 6805bbfd42248b51990422c4bc8a7370d9959dea Mon Sep 17 00:00:00 2001 From: mathieu2em Date: Mon, 22 Jul 2019 13:43:20 -0400 Subject: 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")) -- cgit v1.2.3