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.


------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and 
their applications. This 200-page book is written by three acclaimed 
leaders in the field. The early access version is available now. 
Download your free book today! http://p.sf.net/sfu/neotech_d2d_may
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to