//
// construction_vertices.pp
//
// returns a list of all the construction vertices in the class dictionary
//

*operation* Vertex_comma_list* construction_vertices()
  *init* (@ new Vertex_comma_list @)
  *traverse* *from* Cd_graph
             *via*  Adjacency
             *to*   Construct_ns
  *carry* *in* Vertex* src = (@ source @)
    *along* *from* Adjacency *to* Construct_ns
  *wrapper* Construct_ns
    *suffix*  (@ return_val->append(src); @)