diff options
Diffstat (limited to 'sys/boot/forth/menusets.4th')
| -rw-r--r-- | sys/boot/forth/menusets.4th | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/sys/boot/forth/menusets.4th b/sys/boot/forth/menusets.4th index edee356..9335b80 100644 --- a/sys/boot/forth/menusets.4th +++ b/sys/boot/forth/menusets.4th @@ -26,6 +26,9 @@ marker task-menusets.4th +vocabulary menusets-infrastructure +only forth also menusets-infrastructure definitions + variable menuset_use_name create menuset_affixbuf 255 allot @@ -437,6 +440,8 @@ create menuset_y 1 allot s" affix" unsetenv ; +only forth definitions also menusets-infrastructure + : menuset-loadsetnum ( N -- ) menuset-checksetnum ( n -- ) @@ -537,16 +542,6 @@ create menuset_y 1 allot menuset-cleanup ; -: menuset-loadinitial ( -- ) - s" menuset_initial" getenv dup -1 <> if - ?number 0<> if - menuset-loadsetnum - then - else - drop \ cruft - then -; - : menusets-unset ( -- ) s" menuset_initial" unsetenv @@ -615,3 +610,15 @@ create menuset_y 1 allot s" buf" unsetenv menuset-cleanup ; + +only forth definitions + +: menuset-loadinitial ( -- ) + s" menuset_initial" getenv dup -1 <> if + ?number 0<> if + menuset-loadsetnum + then + else + drop \ cruft + then +; |
