1 // logic.asm: WORD p_within, 'WITHIN',fasm
8 Data stack: ( v lo hi -- 0/-1
11 "WITHIN" is a function word that replaces a triple of values with -1
12 of the the first, v, is within the value range spanned by the second,
13 lo, inclusive and third, hi, exclusive.
17 [caption='Definition concept {counter:exec}: ']
19 : WITHIN 2 PICK > ROT ROT <= AND ;