diff options
| -rw-r--r-- | syntax-highlight/scheme.scm | 11 |
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))) |