From 7a99f2ed7cfe55f3aa69560b31c055ce45fe1f0c Mon Sep 17 00:00:00 2001
From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 8 May 2023 12:29:57 +1000
Subject: [PATCH] correction

---
 examples/uenventlog.f | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/examples/uenventlog.f b/examples/uenventlog.f
index acf6222..c2d1341 100755
--- a/examples/uenventlog.f
+++ b/examples/uenventlog.f
@@ -19,6 +19,10 @@ SYSTEM DEFINITIONS
   " ROT IF TELL NL EMIT 1 EXIT THEN 2DROP
 ;
 
+: time ( -- s ; seconds since epoch )
+  0 SYS_TIME
+;
+
 HEX 100 DECIMAL   CONSTANT MSG_WAITALL
 HEX 80002 DECIMAL CONSTANT SOCK_DGRAM|SOCK_CLOEXEC
 15                CONSTANT NETLINK_KOBJECT_UEVENT
@@ -45,7 +49,7 @@ SYS_BIND DIE" Failed to bind"
   BEGIN
     NL-SOCKET @ RECV-BUFFER NL_MAX_PAYLOAD MSG_WAITALL 0 0
     SYS_RECVFROM DUP 0 >
-    IF DROP RECV-BUFFER DUP STRLEN TELL NL EMIT
+    IF DROP time . SP EMIT RECV-BUFFER DUP STRLEN TELL NL EMIT
     ELSE S" ** Error: " TELL . NL EMIT
     THEN
   AGAIN
-- 
2.39.2