aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/clip.frt
blob: 95c4654b5a88af7698b31634d768a95ab71718c9 (plain)
1
2
3
4
5
6
7
8

: clip ( n lo hi -- n)
   rot min max
;

\ usage: 
\   input @ minval maxval clip ...
\ source: CLF, Brian Fox, 21.4.1997