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