fourth.fs

\ galope/fourth.fs

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

\ Code from Wil Baden's ToolBelt 2002.

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

: fourth ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 ) 3 pick ;

  \ doc{
  \
  \ fourth ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 )
  \
  \ Copy fourth element on the stack onto top of stack.
  \
  \ See: `third`, `4drop`.
  \
  \ }doc

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

\ 2012-12-04 Added.
\
\ 2017-08-17: Update change log layout. Update header.
\
\ 2017-10-26: Improve documentation.