From 5535d94778eef190b83d7ae246bf932d7dabd50b Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sat, 15 Sep 2018 00:42:36 +0200
Subject: [PATCH] Added time primitive.

---
 src/forth.jl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/forth.jl b/src/forth.jl
index c298b72..a7425ae 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1434,4 +1434,9 @@ DUMP = defPrimWord("DUMP", () -> begin
     return NEXT
 end)
 
+TIME = defPrimWord("TIME", () -> begin
+    pushPS(Int64(time_ns()))
+    return NEXT
+end)
+
 end
-- 
2.20.1