unify current time as a complete string, not an atom (#1175)

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 08a99f30d90ab830dbe0f68711ee17768dbbaa55..9b4a65e7432b9a123b3542ef0da5ac9e2270ff01 100644 (file)
--- 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)]