inst literals can now appear in source code

Tensegritics · Jun 30, 2023 · cbc9e59 · cbc9e59
1 parent 36f8074
commit cbc9e59
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/clj/src/cljd/compiler.cljc b/clj/src/cljd/compiler.cljc
@@ -3176,6 +3176,9 @@
             (symbol? x) (emit-symbol x env)
             #?@(:clj [(char? x) (str x)])
             (or (number? x) (boolean? x) (string? x)) x
+            (instance? java.util.Date x)
+            (let [[_ s] (re-matches #"#inst *\"(.*)\"" (pr-str x))]
+              (emit (list 'dart:core/DateTime.parse s) env))
             (instance? java.util.regex.Pattern x)
             (emit (list 'new 'dart:core/RegExp
                         #_(list '. 'dart:core/RegExp 'escape (.pattern ^java.util.regex.Pattern x))

diff --git a/clj/test/cljd/test_clojure/core_test_cljd.cljd b/clj/test/cljd/test_clojure/core_test_cljd.cljd
@@ -812,3 +812,6 @@
            "hello"
            .bar "world")))
     (is (= #dart ("hey" .bar "foo") (.method2 obj #dart ("hey" .bar "foo"))))))
+
+(deftest inst-literals-in-code
+  (is (= 1978 (.-year #inst "1978-10-11"))))