From 75084467b920cbb61bc2130df406d8e54c9d3daa Mon Sep 17 00:00:00 2001 From: olopierpa Date: Sun, 16 Jun 2024 23:32:54 +0200 Subject: [PATCH] prefix parameter v should be case insensitive --- s/format.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/s/format.ss b/s/format.ss index be09796f3..c4a5cd860 100644 --- a/s/format.ss +++ b/s/format.ss @@ -213,7 +213,7 @@ [(#\,) (state s4-comma () (fx+ i 1) b '(#f))] [(#\') (state s4-quote () (fx+ i 1) b '())] [(#\#) (state s4-after-param () (fx+ i 1) b '(hash))] - [(#\v) (state s4-after-param ([nargs (bump nargs 1)]) (fx+ i 1) b '(v))] + [(#\v #\V) (state s4-after-param ([nargs (bump nargs 1)]) (fx+ i 1) b '(v))] [else (state s5 () i b '())])))) (define s4-sign (state lambda (i b p* bp) @@ -253,7 +253,7 @@ [(#\,) (state s4-comma () (fx+ i 1) b (cons #f p*))] [(#\') (state s4-quote () (fx+ i 1) b p*)] [(#\#) (state s4-after-param () (fx+ i 1) b (cons 'hash p*))] - [(#\v) (state s4-after-param ([nargs (bump nargs 1)]) (fx+ i 1) b (cons 'v p*))] + [(#\v #\V) (state s4-after-param ([nargs (bump nargs 1)]) (fx+ i 1) b (cons 'v p*))] [else (state s5 () i b (reverse (cons #f p*)))])))) (define s5 (state lambda (i b p*)