Implement accurate timer for PUC platform

CrazedProgrammer · Mar 20, 2019 · eb1fd90 · eb1fd90
1 parent f40dc28
commit eb1fd90
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util.lisp b/src/util.lisp
@@ -39,7 +39,7 @@
 (defun get-time-raw! () :hidden
   (case (get-platform)
     [cc (os/clock)]
-    [puc (os/time)]))
+    [puc (/ (tonumber (run-program! "date +%s%N")) 1000000000)]))
 
 (define startup-time :hidden
   (get-time-raw!))