fix DOES>

include/fh_runtime.h

@@ -117,7 +117,7 @@ extern const char *substatenames[FH_SUBSTATE_MAX];
 #define WORDFLAG_VARIABLE  0x08
 /** Constant with a value assigned */
 #define WORDFLAG_CONSTANT  0x10
-/** Something CREATEd */
+/** Something CREATEd. When executed, put the data field address on stack */
 #define WORDFLAG_CREATED  0x20
 
 /** Word struct as they are stored in the dictionary */
@@ -250,4 +250,8 @@ enum fh_error fh_init(struct fh_thread_s *fh);
 
 enum fh_error fh_process_line(struct fh_thread_s *fh, const char *linebuf, size_t len);
 
+static inline uint32_t word_addr(struct fh_thread_s *fh, const struct fh_word_s *w) {
+  return (uint32_t) ((void*)w - (void*)&fh->heap[0]);
+}
+
 #endif //FORTH_FH_RUNTIME_H