From 422dc7a10dec96d606f5489721ba025bd2662155 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 19 Sep 2023 10:33:34 -0400 Subject: Remove unused procedures from Scheme lexer. --- syntax-highlight/scheme.scm | 11 ----------- 1 file changed, 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))) -- cgit v1.2.3