seal

[Jos-Ven]

Hi Mitch, Before I submit seal, I would like to know your opinion about the following seal.

: new-seal ( -- ) context token@ context #vocs /n * erase
dup context #vocs 1- ta+ token! execute ;

\ Test case: vocabulary m2m also m2m m2m definitions

: words words ; : order order ; : test ." test! " ;

new-seal order words test \ Returns: context: m2m m2m current: m2m test order words test! ok

\ ---- Under the old seal nothing works seal m2m ok test

test ? Error at: test |

Would the new seal be aceptable for you? Jos