lex hashalw reader literals

goes along with racket/racket#4236 which adds `equal-always?` and `hashalw` along with it

Author: AlexKnauth

syntax-color-lib/syntax-color/racket-lexer.rkt

@@ -167,7 +167,7 @@
    [sharing (:or (:: "#" (make-uinteger digit10) "=")
                  (:: "#" (make-uinteger digit10) "#"))]
 
-   [list-prefix (:or "" "#hash" "#hasheq" "#hasheqv" "#s" (:: "#" (:* digit10)))])
+   [list-prefix (:or "" "#hash" "#hasheq" "#hasheqv" "#hashalw" "#s" (:: "#" (:* digit10)))])
 
   (define-lex-trans make-num
     (syntax-rules ()

syntax-color-lib/syntax-color/racket-navigation.rkt

@@ -108,7 +108,7 @@
 ;; stick-to-next-sexp?: natural -> boolean
 (define stick-to-patterns
   '("'" "," ",@" "`" "#'" "#," "#`" "#,@"
-        "#&" "#;" "#hash" "#hasheq" "#ci" "#cs"))
+        "#&" "#;" "#hash" "#hashalw" "#hasheqv" "#hasheq" "#ci" "#cs"))
 
 (define stick-to-patterns-union
   (regexp (string-append

syntax-color-test/tests/syntax-color/scheme-lexer.rkt

@@ -128,10 +128,16 @@
 (test "#CsA" "oooi")
 (test "#cIA" "oooi")
 (test "#hash(a" "ppppppi")
+(test "#hashalw(a" "pppppppppi")
+(test "#hasheqv(a" "pppppppppi")
 (test "#hasheq(a" "ppppppppi")
 (test "#hash[a" "ppppppi")
+(test "#hashalw[a" "pppppppppi")
+(test "#hasheqv[a" "pppppppppi")
 (test "#hasheq[a" "ppppppppi")
 (test "#hash{a" "ppppppi")
+(test "#hashalw{a" "pppppppppi")
+(test "#hasheqv{a" "pppppppppi")
 (test "#hasheq{a" "ppppppppi")
 (test "#135#a" "oooooi")
 (test "#453=a" "oooooi")
@@ -145,6 +151,7 @@ string-end
 
 ;; Bad #
 (test "#hashe(" "xxxxxxp")
+(test "#hasha(" "xxxxxxp")
 (test "#HASH(" "xxxxxp")
 (test "#HASHEQ(" "xxxxxxxp")
 (test "#a#a" "xxxx")