clean up the entry flag bits a bit HEAD main

Force-Push: yes
Change-Id: I7a5f4033bf80dfd3754de564ab49233459a952c5

1 files changed, 4 insertions, 3 deletions

diff --git a/dynamic.e b/dynamic.e
index 79944b2..f99f0ec 100644
--- a/dynamic.e
+++ b/dynamic.e
@@ -135,9 +135,9 @@
   stringlen 1+ 54 swap - 0 max indent dup .hex64
   dup entry-flags@ dup
     { space
-      dup 128 & { s" H" emitstring } if
-      dup 64 & { s" M" emitstring } if
-      dup 1 & { s" I" emitstring } if
+      dup 0x80 & { s" H" emitstring } if
+      dup 0x40 & { s" M" emitstring } if
+      dup 0x01 & { s" I" emitstring } if
     } if drop
   dup is-assembly-word { s"  asm" emitstring }
     { dup is-docol-interpreted-word { s"  raw" emitstring } unless
@@ -296,6 +296,7 @@
 : make-immediate latest @ dup entry-flags@ 0x01 | swap entry-flags! ;
 : make-hidden latest @ dup entry-flags@ 0x80 | swap entry-flags! ;
 : make-visible latest @ dup entry-flags@ 0x80 invert & swap entry-flags! ;
+: make-metadata latest @ dup entry-flags@ 0x40 | swap entry-flags! ;
 
 ~   Sooner or later we'll want to define recursive words; this one lets us
 ~ do that. It compiles into a call to the word that's currently being