!7

set flag ConceptRef_markInToString.
set flag MetaTransformer_debug.

concept Bla {
  S name;
  new RefL<Bla> references;
}

module > DynPrintLog {
  start-thread {
    new Concepts cc;
    Bla a = cnew(cc, Bla, name := "a");
    Bla b = cnew(cc, Bla, name := "hello", whatever := 123, ref := a,
      references := ll(a, a));
    pnl(conceptShadow_rawMap(a));
    ConceptShadow shadow = ConceptShadow(a);
    print(shadow);
    shadow.convertRefsToIDs();
    print(shadow);
    pnl(conceptShadow_rawMap(b));
    shadow = ConceptShadow(b);
    print(shadow);
    shadow.convertRefsToIDs();
    print(shadow);
  }
}