Revert "Merge branch 'master' into fix-scan-dirs"

This reverts commit 54bfc9e, reversing
changes made to c9a91cc.

Author: dmiller

.github/workflows/test.yml

@@ -14,7 +14,5 @@ jobs:
         run: |
           dotnet tool install --global Clojure.Main --version 1.12.0-alpha10
           dotnet tool install --global Clojure.Cljr --version 0.1.0-alpha5
-
       - name: Run cljr tests
-        run: cljr -X:test
-
+        run: cljr -X:test

src/main/clojure/clojure/tools/namespace/dir.clj

@@ -29,13 +29,14 @@
        (mapcat #(find/find-sources-in-dir % platform))
        ))                                          ;;; ditto:  (map #(.getCanonicalFile ^File %))
 
-(defn- modified-since-tracked? [tracker file]
-  (if-let [time (::time tracker)]
-    (DateTime/op_LessThan time (.LastWriteTimeUtc ^FileSystemInfo file))
-    true))
+(defn- milliseconds-since-epoch [^DateTime time]
+  (long
+    (/ (- (.-Ticks time)
+          (.-Ticks DateTime/UnixEpoch))
+       TimeSpan/TicksPerMillisecond)))
 
 (defn- modified-files [tracker files]
-  (filter (partial modified-since-tracked? tracker) files))         ;;; (.lastModified ^File %)
+  (filter #(< (::time tracker 0) (milliseconds-since-epoch (.-LastWriteTimeUtc ^FileSystemInfo %))) files))   ;;; #(< (::time tracker 0) (.lastModified ^File %))
 
 (defn- deleted-files [tracker files]
   (set (remove #(file/some-file files %) (::files tracker #{}))))                                             ;;; (set/difference (::files tracker #{}) (set files))
@@ -137,3 +138,6 @@
     (instance? DirectoryInfo x) x
 	(string? x) (DirectoryInfo. ^String x)
 	:default (DirectoryInfo. (str x))))
+	
+	
+  

src/test/clojure/clojure/tools/namespace/dir_test.clj

@@ -4,17 +4,6 @@
             [clojure.tools.namespace.dir :as dir])
   #_(:import
    (java.io File)))
-
-(defmacro is-not-thrown? [& body]
-  `(try
-     ~@body
-     (is true "No exception thrown")
-     (catch Exception e#
-       (is false (str "Expected no exception, but got: " (.GetType e#) ": " (.-Message e#))))))
-
-(deftest scan-dirs-does-not-throw
-  (is-not-thrown? (dir/scan-dirs {})))
-
 ;;; I don't know what the equivalent test would be for .Net.
 #_(defn- make-symbolic-link
   "Reflectively calls java.nio.file.Files/createSymbolicLink on two
@@ -46,4 +35,4 @@
           link (File. other-dir "link")]
       (make-symbolic-link link dir)
       (is (= (::dir/files (dir/scan-dirs {} [dir]))
-             (::dir/files (dir/scan-dirs {} [link])))))))
+             (::dir/files (dir/scan-dirs {} [link])))))))