Paste: cond

Author: xiackok
Mode: factor
Date: Wed, 16 Feb 2011 10:33:17
Plain Text |
: clip ( max val -- val? )
    {
        { [ 0 < ] [ drop f ] }
        { [ < ] [ f ] }
        [ nip ]
    } cond ;

New Annotation

Summary:
Author:
Mode:
Body: