diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-07-22 13:43:20 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-20 15:31:38 -0400 |
| commit | 6805bbfd42248b51990422c4bc8a7370d9959dea (patch) | |
| tree | d8880165bec9f65757fabdca5816b9e0974c901a | |
| parent | d8c0e60e236ee89e97e8757eef47064b55affdfb (diff) | |
| download | geiser-guile-6805bbfd42248b51990422c4bc8a7370d9959dea.tar.gz geiser-guile-6805bbfd42248b51990422c4bc8a7370d9959dea.tar.bz2 | |
gambit syntax coloration + adjustment of methods list
| -rw-r--r-- | elisp/geiser-gambit.el | 4 | ||||
| -rw-r--r-- | 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")) |