[Amforth] MARKER fixed

[Enoch <ix...@ho...>]

Hello Matthias & All:

MARKER was restoring word-lists in the reverse order. Fixed via a new
REVERSE word which is expected to be useful on its own.

See: http://pastebin.com/iWp7MRmv

Here's the new REVERSE word for those objecting to pastebins :-)

\ ( X1 .. Xn n -- Xn .. X1 n )
: reverse
   >r
   sp@ sp@ r@ cells +			\ ( bot-addr top-addr )
   begin
      over over <			\ bot top cross each other?
   while				\ no
      dup @ >r				\ save top-cell content
      over @ over !			\ replace top-cell
      over r> swap !			\ replace bot-cell
      cell- swap cell+ swap
   repeat
   2drop
   r>
;

Regards, Enoch.