]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/ci/run-process/run-process.factor
calendar: cleanup some of the API by making words mutate timestamps.
[factor.git] / extra / ci / run-process / run-process.factor
index 425afdf18f9b0da4664e8f764bfc886a1a748b50..67c2693e1ea1fe187e96ba7d80a19868412f25bf 100644 (file)
@@ -13,7 +13,7 @@ TUPLE: process-autopsy
 : ci-run-process ( process -- timestamp os-envs cwd uid euid gid egid out elapsed os-envs' process )
     [
         [
-            gmt os-envs current-directory get
+            now-gmt os-envs current-directory get
             real-user-id effective-user-id
             real-group-id effective-group-id
         ] dip [
@@ -71,4 +71,4 @@ TUPLE: process-autopsy
             bl bl out>> "out" tag-payload print nl
         ]
         [ drop ";AUTOPSY>" print ]
-    } cleave ;
\ No newline at end of file
+    } cleave ;