aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core/move.frt
blob: 795a8ef1e71df468d4c2124030951ae8a31be2ed (plain)
1
2
3
4
5
\ respect overlapping memory regions a choose
\ the proper cmove
: move
  >r 2dup u< if r> cmove> else r> cmove then 
;