[Amforth-devel] SET-CURRENT (and MARKER)

[Leon N. M. <leo...@gm...>]

I wanted to install MARKER on my device, but the definition in lib/ans94 use 
SET-CURRENT, which mysteriously seems to not be in my dictionary but is in 
core/words. (Other words are missing too, like SET-ORDER).

How can I correct this?

Thanks.
-Leon

PS For what it's worth, here's what I get when I run WORDS:

i@ (i!) i! e@ e! not s>d up! up@ >< cmove> unloop i sp! sp@ rp! rp@ +! rshift 
lshift 1- 1+ xor or and 2* 2/ invert um* um/mod m* + - log2 d< d> 0> u> u< 
true 0 0< > < 0= = <> r@ >r r> rot drop over swap ?dup dup c@ c! ! @ execute 
exit -int +int show-wordlist +usart baud tx? tx rx? rx order get-order get-
current environment? environment end-code code abort abort" [char] immediate 
recurse user constant variable [ ] ; :noname : does> create ?do leave +loop 
loop do again until repeat while begin then else if literal int! applturnkey 
is Rdefer Edefer words s" ." .s u. dinvert d- d+ d2* init-user ee>ram ee-user 
tib d2/ cmove dnegate dabs d>s j * defer@ defer! icompare find search-wordlist 
to value unused noop ver ?stack interpret depth rp0 sp sp0 cold pause quit 
place word /string source cscan parse 2swap >number number char refill accept 
cskip throw catch handler ' type count spaces space cr icount itype s, digit? 
ud/mod ud.r ud. . d. .r d.r sign #> #s # <# hold hld within max min abs mod / 
negate u/mod */ /mod */mod turnkey bl hex decimal bin ['] , compile ( \ allot 
here edp dp /key key? key emit? emit pad #tib >in cell+ cells base state f_cpu