diff options
| -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")) |