From ed72c28cd11726dd2e3f547aa29157b69fe5eaff Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 19 Oct 2015 09:08:08 -0400 Subject: parsers: Remove parse-never. This was a thinko. It's redundant with 'parse-fail'. * syntax-highlight/parsers.scm (parse-never): Delete. (parse-fail): Rewrite docstring. (parse-any, parse-each): Use 'parse-fail'. * syntax-highlight/scheme.scm (parse-specials, parse-openers, parse-closers): Likewise. --- syntax-highlight/scheme.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'syntax-highlight/scheme.scm') diff --git a/syntax-highlight/scheme.scm b/syntax-highlight/scheme.scm index f4f4ac6..5b906c7 100644 --- a/syntax-highlight/scheme.scm +++ b/syntax-highlight/scheme.scm @@ -53,7 +53,7 @@ language." (values result rest-of-stream) (parse-fail stream)))))) - (fold parse-either parse-never (map special special-words))) + (fold parse-either parse-fail (map special special-words))) (define (parse-specials/regexp special-regexps) (let ((merged-regexp @@ -68,13 +68,13 @@ language." (define (open opener) (tagged-parser 'open (parse-string opener))) - (fold parse-either parse-never (map open openers))) + (fold parse-either parse-fail (map open openers))) (define (parse-closers closers) (define (close closer) (tagged-parser 'close (parse-string closer))) - (fold parse-either parse-never (map close closers))) + (fold parse-either parse-fail (map close closers))) (define parse-symbol (tagged-parser 'symbol -- cgit v1.2.3