Fixing up vocabulary layering for assembler.

2022-10-21 21:05:14 -07:00
parent e69c1dba0c
commit cd1e0d9ee9
2 changed files with 14 additions and 10 deletions
--- a/common/assembler.fs
+++ b/common/assembler.fs
@ -15,11 +15,9 @@
 ( Lazy loaded assembler/disassembler framework )
 : assembler r|

-also asm
-also forth definitions
-vocabulary assembler
+current @
 also internals
-also assembler definitions
+also asm definitions

 -1 1 rshift invert constant high-bit
 : odd? ( n -- f ) 1 and ;
@ -111,7 +109,11 @@ variable istep
 : disasm1 ( a -- a ) 0 istep ! ['] matchit for-ops istep @ 8 / + ;
 : disasm ( a n -- ) for aft disasm1 then next drop ;

-previous previous previous previous
+previous previous
+also forth definitions
+: assembler asm ;
+previous
 assembler
+current !

 | evaluate ;