More shuffling.
This commit is contained in:
@ -18,6 +18,11 @@ transfer internals-builtins
|
||||
forth definitions internals
|
||||
( Bring a forth to the top of the vocabulary. )
|
||||
: ok ." uEforth" raw-ok ;
|
||||
|
||||
: dummy-type 2drop yield ; ' dummy-type is type
|
||||
: dummy-key yield 0 ; ' dummy-key is key
|
||||
: dummy-key? yield 0 ; ' dummy-key is key?
|
||||
|
||||
transfer forth
|
||||
forth
|
||||
ok
|
||||
|
||||
Reference in New Issue
Block a user