Fixed issue with basilisp.core/time failing outside of core (#992)

Hi,

can you please consider patch to address an issue with
`basilisp.core/time` failing when called outside of the core ns. It
fixes #991.

Added test for the same.

I've also wrapped the `expr` in a `do` block so that it can't interfere
with the out `try block` thanks.

Thanks

---------

Co-authored-by: ikappaki <[email protected]>

Author: ikappaki

CHANGELOG.md

@@ -20,6 +20,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Fixed
  * Fixed inconsistent behavior with `basilisp.core/with` when the `body` contains more than one form (#981)
+ * Fixed an issue with `basilisp.core/time` failing when called outside of the core ns (#991)
 
 ### Removed
  * Removed `python-dateutil` and `readerwriterlock` as dependencies, switching to standard library components instead (#976)

src/basilisp/core.lpy

@@ -4021,7 +4021,8 @@
        (fn []
          ~@body))))
 
-(defn ^:private perf-counter
+(defn perf-counter
+  "Implementation detail of :lpy:fn:`time`."
   []
   (py-time/perf-counter))
 
@@ -4031,7 +4032,7 @@
   [expr]
   `(let [start (perf-counter)]
      (try
-       ~expr
+       (do ~expr)
        (finally
          (println (* 1000 (- (perf-counter) start)) "msecs")))))
 

tests/basilisp/test_core_macros.lpy

@@ -1,6 +1,7 @@
 (ns tests.basilisp.test-core-macros
   (:import contextlib inspect os socket tempfile)
   (:require
+   [basilisp.string :as str]
    [basilisp.test :refer [deftest is testing]]))
 
 (deftest defn-test
@@ -488,6 +489,9 @@
                  (with [sock (socket/socket socket/AF_INET socket/SOCK_STREAM)]
                        (throw python/FloatingPointError))))))
 
+(deftest time-test
+  (is (str/includes? (with-out-str (time 123)) "msecs")))
+
 (deftest if-let-test
   (is (= :a (if-let [a :a] a :b)))
   (is (= 2 (if-let [a 1] (inc a) :b)))