RosettaCodeData/Task/Conditional-structures/Oforth/conditional-structures-3.fth

Number virtual: sgn
    self isPositive
       ifTrue: [ self ==0 ifTrue: [ 0 ] else: [ 1 ] ]
       else: [ -1 ] ;