diff options
Diffstat (limited to 'dynamic.e')
| -rw-r--r-- | dynamic.e | 7 |
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 |