summaryrefslogtreecommitdiff
path: root/syntax-highlight
diff options
context:
space:
mode:
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)))