From 7f32c331cfa7c9bb934da06fe01f66d427aeb888 Mon Sep 17 00:00:00 2001 From: mathieu2em Date: Thu, 4 Jul 2019 14:10:46 -0400 Subject: support gambit's style block comments from chris blom --- elisp/geiser-syntax.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'elisp') 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))) -- cgit v1.2.3