summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authormathieu2em <math.per@hotmail.com>2019-07-04 14:10:46 -0400
committermathieu2em <math.per@hotmail.com>2019-08-20 15:31:38 -0400
commit7f32c331cfa7c9bb934da06fe01f66d427aeb888 (patch)
treef7a76ec2f983a42bb889b1a5f52b88af3e1c17e5 /elisp/geiser-syntax.el
parent6963550b25733cf38ac3fc9eb00a3f3c86e68f1f (diff)
downloadgeiser-7f32c331cfa7c9bb934da06fe01f66d427aeb888.tar.gz
geiser-7f32c331cfa7c9bb934da06fe01f66d427aeb888.tar.bz2
support gambit's style block comments from chris blom
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el8
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)))