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 | 3e3cfab88fac61356d127644cf8059920a7daaa5 (patch) | |
| tree | 28ec3671d649ba7c3aa7064650ee70b81f9e89e9 /elisp | |
| parent | e69994959bbf2132cca1439e3a46bfdd4d151413 (diff) | |
| download | geiser-guile-3e3cfab88fac61356d127644cf8059920a7daaa5.tar.gz geiser-guile-3e3cfab88fac61356d127644cf8059920a7daaa5.tar.bz2 | |
support gambit's style block comments from chris blom
Diffstat (limited to 'elisp')
| -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))) |