X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;fp=src%2Fforth.jl;h=a7425ae45f8e409be217a8aefc39091826fd368b;hp=c298b728ca2e0c3ff2b2fce6bd712d36266b71d1;hb=5535d94778eef190b83d7ae246bf932d7dabd50b;hpb=71a2b49135aa4ebb85e8050df0030ede456bc9db 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