diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-07-04 14:10:46 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-20 15:31:38 -0400 |
| commit | 7f32c331cfa7c9bb934da06fe01f66d427aeb888 (patch) | |
| tree | f7a76ec2f983a42bb889b1a5f52b88af3e1c17e5 | |
| parent | 6963550b25733cf38ac3fc9eb00a3f3c86e68f1f (diff) | |
| download | geiser-7f32c331cfa7c9bb934da06fe01f66d427aeb888.tar.gz geiser-7f32c331cfa7c9bb934da06fe01f66d427aeb888.tar.bz2 | |
support gambit's style block comments from chris blom
| -rw-r--r-- | elisp/geiser-syntax.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 475a092..4d58888 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -218,6 +218,14 @@ implementation-specific entries for font-lock-keywords.") ((equal (symbol-name tok) "f") '(boolean . :f)) (tok (cons 'atom tok)) (t (geiser-syntax--read/next-token))))))) + (?| (case (geiser-syntax--read/next-char) ;; gambit style block comments + ('nil '(eob)) + (?# (geiser-syntax--read/skip-comment)) + (t (let ((tok (geiser-syntax--read/symbol))) + (cond ((equal (symbol-name tok) "t") '(boolean . :t)) + ((equal (symbol-name tok) "f") '(boolean . :f)) + (tok (cons 'atom tok)) + (t (geiser-syntax--read/next-token))))))) (?\' (geiser-syntax--read/token '(quote . quote))) (?\` (geiser-syntax--read/token `(backquote . ,backquote-backquote-symbol))) |