array-to.fs

\ galope/array-to.fs

\ This file is part of Galope
\ http:https://programandala.net/en.program.galope.html

\ Author: Marcos Cruz (programandala.net), 2018.

\ ==============================================================

: array> ( n a1 -- a2 ) swap cells + ;

  \ doc{
  \
  \ array> ( n a1 -- a2 ) "array-to"
  \
  \ Return address _a2_ of element _n_ of a 1-dimension
  \ cell array _a1_.
  \
  \ See: `2array>`, `array<`.
  \
  \ }doc

\ ==============================================================
\ Change log

\ 2018-05-01: Start. Adapt from Solo Forth
\ (http:https://programanadala.net/en.program.solo_forth.html).