Remove unused procedures from Scheme lexer.

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