CLJS-3263 Always print #inst year with 4 digits

Author: slipset

src/main/cljs/cljs/core.cljs

@@ -10288,7 +10288,7 @@ reduces them without incurring seq initialization"
                               ns)))]
           (write-all writer
             "#inst \""
-            (str (.getUTCFullYear obj))             "-"
+            (normalize (.getUTCFullYear obj) 4)     "-"
             (normalize (inc (.getUTCMonth obj)) 2)  "-"
             (normalize (.getUTCDate obj) 2)         "T"
             (normalize (.getUTCHours obj) 2)        ":"

src/test/cljs/cljs/core_test.cljs

@@ -1810,6 +1810,10 @@
   (is (= :/ (keyword "/")))
   (is (= (hash :/) (hash (keyword "/")))))
 
+(deftest test-cljs-3263
+  (is (= "#inst \"0985-04-12T23:20:50.520-00:00\"" (pr-str #inst "0985-04-12T23:20:50.520-00:00")))
+  (is (= "#inst \"1970-12-18T23:20:50.520-00:00\"" (pr-str #inst "1970-12-18T23:20:50.520-00:00"))))
+
 (deftest test-cljs-3270
   (is (== 10 (count (range 0 (+ 1 (/ 9)) (/ 9))))))