// $Id$

*** $func? Name expr = s.name;

Name s.obj =
  $cxx {
    Term* first = s_obj.get_first();
    ObjectRef* ref = first->cast_to<ObjectRef>();
    if (ref) {
      try {
        $(s, Expr::create<Word>(Word(ref->get_name())));
      }
      catch (Object::InvalidArgument&) {
        RF_RETFAIL;
      }
    }
    RF_RETFAIL;
  };