Added time primitive.

[forth.jl.git] / src / forth.jl

diff --git a/src/forth.jl b/src/forth.jl
index c298b72..a7425ae 100644 (file)
--- 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