(exit_name from TimeTraveller, #17462 7/31/92, def'd by Firiss)
( d -- s )
( Takes an exit's dbref and returns the first of the exit's names, which )
( is presumed to be separated by a semicolon.  If there is only one name, )
( or if the given dbref is not an exit, just the name is returned.  For )
( example, this macro called with the dbref of the exit 'west;wes;we;w' )
( would return "west".  Called with the dbref of the exit named 'ferry', )
( it would return simply 'ferry'. )
: exit-name
  name dup ";" instr
  dup 0 = if
  pop exit else
  1 - strcut pop
then
;