aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core/2over.frt
blob: cf614ca869f26bc4fe29946ee4a2663c19902a38 (plain)
1
2
3
4
5
6
7
8
\ 2over	( w1 w2 w3 w4 -- w1 w2 w3 w4 w1 w2 )	core	two_over
: 2over
  >r >r
  over over
  r>
  rot rot
  r>
  rot rot ;