ANY NONE
class interface WHEN_RIGHT_UP

feature(s) from HASHABLE
   hash_code: INTEGER
      -- The hash-code value of Current.
      ensure
         good_hash_value: Result >= 0

feature(s) from WHEN_RIGHT_UP
   when_right_up (p: PROCEDURE[ANY,TUPLE])

   when_right_up_signal: SIGNAL_0



end of WHEN_RIGHT_UP