From 528844912fc6e07c9860234a9dbf63efb7cabb91 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 3 Jan 2020 14:47:03 -0500
Subject: [PATCH] Test file

---
 test-lib-dep.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 test-lib-dep.scm

diff --git a/test-lib-dep.scm b/test-lib-dep.scm
new file mode 100644
index 00000000..adcd38e6
--- /dev/null
+++ b/test-lib-dep.scm
@@ -0,0 +1,32 @@
+(import 
+  (scheme base)
+  (scheme write)
+  (scheme cyclone libraries)
+)
+
+
+(define append-dirs '())
+(define prepend-dirs '())
+(define lib-dep '(scheme cyclone common2))
+
+(let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
+       (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs))
+      )
+  (write (list 
+          (file-mtime sld-file)
+          (file-mtime obj-file))))
+
+;(define (recompile? lib-dep)
+;  (let* ((sld-file (lib:import->filename lib-dep ".sld" append-dirs prepend-dirs))
+;         (obj-file (lib:import->filename lib-dep ".o" append-dirs prepend-dirs))
+;        )
+;    (write (list 
+;            (file-mtime sld-file)
+;            (file-mtime obj-file))))
+
+(define-c file-mtime
+  "(void *data, int argc, closure _, object k, object filename)"
+  " make_double(box, 0.0);
+    Cyc_check_str(data, filename);
+    double_value(&box) = Cyc_file_last_modified_time(string_str(filename));
+    return_closcall1(data, k, &box); ")