summaryrefslogtreecommitdiff
path: root/syntax-highlight
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-09-19 10:33:34 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-09-19 10:33:34 -0400
commit422dc7a10dec96d606f5489721ba025bd2662155 (patch)
tree532d52e8eba4f143b755232fe925eaebfc017d40 /syntax-highlight
parent2b87516742cc90274f451ac05ea98b9b9b72d35d (diff)
Remove unused procedures from Scheme lexer.
Diffstat (limited to 'syntax-highlight')
-rw-r--r--syntax-highlight/scheme.scm11
1 files changed, 0 insertions, 11 deletions
diff --git a/syntax-highlight/scheme.scm b/syntax-highlight/scheme.scm
index ab46dbb..476b795 100644
--- a/syntax-highlight/scheme.scm
+++ b/syntax-highlight/scheme.scm
@@ -55,17 +55,6 @@
(define %default-special-prefixes
'("define" "syntax"))
-(define (lex-special-symbol sym)
- (lex-filter (lambda (str)
- (string=? sym str))
- (lex-char-set char-set:lisp-symbol)))
-
-(define (lex-special-symbol symbols prefixes)
- (lex-filter (lambda (str)
- (or (any (cut string=? symbols <>) symbols)
- (any (cut string-prefix? <> str) prefixes)))
- (lex-char-set char-set:lisp-symbol)))
-
(define (lex-map2 proc lexer)
(lambda (tokens cursor)
(let-values (((result remainder) (lexer tokens cursor)))