Update format.ss

prefix parameter V must be case insensitive
cisco · Jun 17, 2024 · c793bd3 · c793bd3
1 parent 8373ee4
commit c793bd3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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*)