~vertigo/shoehorn

65d8ede9463fe9677f079ea7c8200e993a1a2ae8 — Samuel A. Falvo II 7 months ago 128166d
Add SEAL feature to finalize a dictionary.
2 files changed, 13 insertions(+), 0 deletions(-)

M colon.fs
M w65c816.fs
M colon.fs => colon.fs +10 -0
@@ 3,6 3,11 @@
\ file, You can obtain one at https://mozilla.org/MPL/2.0/.


2 CONSTANT b/cell

: TCELLS ( nc -- nb )   b/cell * ;


\ Labels are tracked internally to each colon definition.

variable label#


@@ 160,3 165,8 @@ create template
: cmp:(                     [CHAR] ) parse 2drop ;
: cmp:\			    POSTPONE \ ;

\ Vocabulary/Wordlist support

: (T:)                      name check header ;
: TSEAL ( -- )              (T:)  S" (dovoc)" call emit:voclinks ;


M w65c816.fs => w65c816.fs +3 -0
@@ 96,3 96,6 @@ VARIABLE hsh
  hsh @ remember
;

: emit:voclinks ( -- )
  #buckets 0 DO I bucket count S" .word" absE LOOP 0vocab ;