From a54e42961cbfbe8d974fc4b1714f1c89dc31326d Mon Sep 17 00:00:00 2001
From: Mark Thom <markjordanthom@gmail.com>
Date: Sat, 8 Jan 2022 11:47:35 -0700
Subject: [PATCH] unify current time as a complete string, not an atom (#1175)

---
 src/machine/system_calls.rs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 08a99f30..9b4a65e7 100644
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3148,7 +3148,7 @@ impl Machine {
     #[inline(always)]
     pub(crate) fn current_time(&mut self) {
         let timestamp = self.systemtime_to_timestamp(SystemTime::now());
-        self.machine_st.unify_atom(timestamp, self.machine_st.registers[1]);
+        self.machine_st.unify_complete_string(timestamp, self.machine_st.registers[1]);
     }
 
     #[inline(always)]
-- 
2.54.0