use builtins for parsing

erdos · Nov 19, 2023 · 383156b · 383156b
1 parent d2cb0f2
commit 383156b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/src/stencil/infix.clj b/src/stencil/infix.clj
@@ -76,9 +76,7 @@
   (when (contains? digits (first characters))
     (let [content (string (take-while (set "1234567890._")) characters)
           content (.replaceAll content "_" "")
-          number  (if (some #{\.} content)
-                    (Double/parseDouble content)
-                    (Long/parseLong     content))]
+          number  (if (some #{\.} content) (parse-double content) (parse-long content))]
       [number (drop (count content) characters)])))
 
 (defn- read-ops2 [chars]

diff --git a/version.bb b/version.bb
@@ -4,9 +4,9 @@
   (when-let [[[_ major minor patch modifier]]
              (seq (re-seq #"(\d+)\.(\d+)\.(\d+)(-SNAPSHOT)?"
                           version))]
-    {:major (Long/parseLong major)
-     :minor (Long/parseLong minor)
-     :patch (Long/parseLong patch)
+    {:major (parse-long major)
+     :minor (parse-long minor)
+     :patch (parse-long patch)
      :modifier (case modifier
                  "-SNAPSHOT" modifier-snapshot
                  nil nil)}))