X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=vm%2Fcode_blocks.hpp;h=c0f076836bbb406f132054f4fc3ed75fde959c29;hp=cd7d1ea5ae28511b6990a918646a514859b5f470;hb=c31530caecbdb96384603fd11ad5a356897474f0;hpb=139c9ca38c537c8db371944cd04d13118019363f

diff --git a/vm/code_blocks.hpp b/vm/code_blocks.hpp
index cd7d1ea5ae..c0f076836b 100644
--- a/vm/code_blocks.hpp
+++ b/vm/code_blocks.hpp
@@ -84,4 +84,17 @@ struct code_block
 };
 
 VM_C_API void undefined_symbol(void);
+
+inline code_block *word::code() const {
+	assert(entry_point != NULL);
+	return (code_block*)entry_point - 1;
+}
+
+inline code_block *quotation::code() const {
+	assert(entry_point != NULL);
+	return (code_block*)entry_point - 1;
 }
+
+}
+
+