X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=blobdiff_plain;f=misc.c;h=ba834fdffd44b84cef98268a2e2cbadc8dea63b2;hp=ee2ac25cd95a90a07b559548240959359f7391bd;hb=a678b68b39f21f8b2853e45c6138d815a82a3423;hpb=87961483a22111329eac6967705190ccd72330f6

diff --git a/misc.c b/misc.c
index ee2ac25..ba834fd 100644
--- a/misc.c
+++ b/misc.c
@@ -50,6 +50,23 @@ void packed_to_token(long packed, char token[6])
     }
 }
 
+/* Hide the fact that wods are corrently packed longs */
+
+bool wordeq(token_t a, token_t b)
+{
+    return a == b;
+}
+
+bool wordempty(token_t a)
+{
+    return a == 0;
+}
+
+void wordclear(token_t *v)
+{
+    *v = 0;
+}
+
 /*  I/O routines (SPEAK, PSPEAK, RSPEAK, SETPRM, GETIN, YES) */
 
 void speak(const char* msg)