6.1.0630
?DUP
question-dupe
CORE
 
( x -- 0 | x x )

Duplicate x if it is non-zero.

Testing:
T{ -1 ?DUP -> -1 -1 }T
T{  0 ?DUP ->  0    }T
T{  1 ?DUP ->  1  1 }T