change some single-character identifiers to use scheme-normal-indent

indent.ms

@@ -754,6 +754,55 @@
     "(let f () ...))"))
   )
 
+(indent-mat single-character-identifiers ()
+  (for-each
+   (lambda (id)
+     (check-indent
+      (code
+       (format "(~a" id)
+       " test1"
+       " test2"
+       " test3)")
+      (code
+       (format "(~a" id)
+       "test1"
+       "test2"
+       "test3)"))
+     (check-indent
+      (code
+       (format "(~a test1" id)
+       "  test2"
+       "  test3)")
+      (code
+       (format "(~a test1" id)
+       "test2"
+       "test3)")))
+   '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m"
+     "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
+  (for-each
+   (lambda (id)
+     (check-indent
+      (code
+       (format "(~a" id)
+       " test1"
+       " test2"
+       " test3)")
+      (code
+       (format "(~a" id)
+       "test1"
+       "test2"
+       "test3)"))
+     (check-indent
+      (code
+       (format "(~a test1" id)
+       "   test2"
+       "   test3)")
+      (code
+       (format "(~a test1" id)
+       "test2"
+       "test3)")))
+   '("!" "@" "$" "%" "^" "&" ":" "?" "~" "_" "*" "/" "+" "-")))
+
 ;; This header is handy in Emacs with column-number-mode to look
 ;; closely at alignment.
 (define align-header

indent.ss

@@ -555,6 +555,7 @@
      1]
     ;; Manual updates to style
     [(call-with-values) 0]
+    [(! @ $ % ^ & : ? ~ _) scheme-normal-indent]
     )
 
   (define (emit-whitespace op n)