X-Git-Url: http://nitlanguage.org

diff --git a/c_src/partial_order._sep.h b/c_src/partial_order._sep.h
index 7513b2e..a74311d 100644
--- a/c_src/partial_order._sep.h
+++ b/c_src/partial_order._sep.h
@@ -58,114 +58,128 @@ extern const int SFT_partial_order[];
 #define CALL_partial_order___PartialOrderElement_____geq(recv) ((partial_order___PartialOrderElement_____geq_t)CALL((recv), (SFT_partial_order[7] + 14)))
 #define CALL_partial_order___PartialOrderElement___register_direct_smallers(recv) ((partial_order___PartialOrderElement___register_direct_smallers_t)CALL((recv), (SFT_partial_order[7] + 15)))
 #define CALL_partial_order___PartialOrderElement___init(recv) ((partial_order___PartialOrderElement___init_t)CALL((recv), (SFT_partial_order[7] + 16)))
-#define LOCATE_partial_order___PartialOrder___iterator "partial_order::PartialOrder::(abstract_collection::Collection::iterator)"
-val_t partial_order___PartialOrder___iterator(val_t p0);
-typedef val_t (*partial_order___PartialOrder___iterator_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___is_empty "partial_order::PartialOrder::(abstract_collection::Collection::is_empty)"
+static const char * const LOCATE_partial_order___PartialOrder___roots = "partial_order::PartialOrder::roots";
+val_t partial_order___PartialOrder___roots(val_t p0);
+typedef val_t (*partial_order___PartialOrder___roots_t)(val_t p0);
+static const char * const LOCATE_partial_order___PartialOrder___is_empty = "partial_order::PartialOrder::(abstract_collection::Collection::is_empty)";
 val_t partial_order___PartialOrder___is_empty(val_t p0);
 typedef val_t (*partial_order___PartialOrder___is_empty_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___length "partial_order::PartialOrder::(abstract_collection::Collection::length)"
+static const char * const LOCATE_partial_order___PartialOrder___length = "partial_order::PartialOrder::(abstract_collection::Collection::length)";
 val_t partial_order___PartialOrder___length(val_t p0);
 typedef val_t (*partial_order___PartialOrder___length_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___has "partial_order::PartialOrder::(abstract_collection::Collection::has)"
+static const char * const LOCATE_partial_order___PartialOrder___first = "partial_order::PartialOrder::(abstract_collection::Collection::first)";
+val_t partial_order___PartialOrder___first(val_t p0);
+typedef val_t (*partial_order___PartialOrder___first_t)(val_t p0);
+static const char * const LOCATE_partial_order___PartialOrder___has = "partial_order::PartialOrder::(abstract_collection::Collection::has)";
 val_t partial_order___PartialOrder___has(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___has_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___has_only "partial_order::PartialOrder::(abstract_collection::Collection::has_only)"
+static const char * const LOCATE_partial_order___PartialOrder___has_only = "partial_order::PartialOrder::(abstract_collection::Collection::has_only)";
 val_t partial_order___PartialOrder___has_only(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___has_only_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___count "partial_order::PartialOrder::(abstract_collection::Collection::count)"
+static const char * const LOCATE_partial_order___PartialOrder___count = "partial_order::PartialOrder::(abstract_collection::Collection::count)";
 val_t partial_order___PartialOrder___count(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___count_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___first "partial_order::PartialOrder::(abstract_collection::Collection::first)"
-val_t partial_order___PartialOrder___first(val_t p0);
-typedef val_t (*partial_order___PartialOrder___first_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___roots "partial_order::PartialOrder::roots"
-val_t partial_order___PartialOrder___roots(val_t p0);
-typedef val_t (*partial_order___PartialOrder___roots_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder_____bra "partial_order::PartialOrder::[]"
+static const char * const LOCATE_partial_order___PartialOrder___iterator = "partial_order::PartialOrder::(abstract_collection::Collection::iterator)";
+val_t partial_order___PartialOrder___iterator(val_t p0);
+typedef val_t (*partial_order___PartialOrder___iterator_t)(val_t p0);
+static const char * const LOCATE_partial_order___PartialOrder_____bra = "partial_order::PartialOrder::[]";
 val_t partial_order___PartialOrder_____bra(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder_____bra_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___to_dot "partial_order::PartialOrder::to_dot"
+static const char * const LOCATE_partial_order___PartialOrder___to_dot = "partial_order::PartialOrder::to_dot";
 val_t partial_order___PartialOrder___to_dot(val_t p0);
 typedef val_t (*partial_order___PartialOrder___to_dot_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___to_dot_header "partial_order::PartialOrder::to_dot_header"
+  typedef void (*CLOS_OC_partial_order___PartialOrder___to_dot_1_0)(struct stack_frame_t *);
+  void OC_partial_order___PartialOrder___to_dot_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+  typedef void (*OC_partial_order___PartialOrder___to_dot_1_t)(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+static const char * const LOCATE_partial_order___PartialOrder___to_dot_header = "partial_order::PartialOrder::to_dot_header";
 val_t partial_order___PartialOrder___to_dot_header(val_t p0);
 typedef val_t (*partial_order___PartialOrder___to_dot_header_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrder___to_dot_node "partial_order::PartialOrder::to_dot_node"
+static const char * const LOCATE_partial_order___PartialOrder___to_dot_node = "partial_order::PartialOrder::to_dot_node";
 val_t partial_order___PartialOrder___to_dot_node(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___to_dot_node_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___to_dot_edge "partial_order::PartialOrder::to_dot_edge"
+static const char * const LOCATE_partial_order___PartialOrder___to_dot_edge = "partial_order::PartialOrder::to_dot_edge";
 val_t partial_order___PartialOrder___to_dot_edge(val_t p0, val_t p1, val_t p2);
 typedef val_t (*partial_order___PartialOrder___to_dot_edge_t)(val_t p0, val_t p1, val_t p2);
-#define LOCATE_partial_order___PartialOrder___select_smallests "partial_order::PartialOrder::select_smallests"
+static const char * const LOCATE_partial_order___PartialOrder___select_smallests = "partial_order::PartialOrder::select_smallests";
 val_t partial_order___PartialOrder___select_smallests(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___select_smallests_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___add "partial_order::PartialOrder::add"
+  typedef void (*CLOS_OC_partial_order___PartialOrder___select_smallests_2_0)(struct stack_frame_t *);
+  void OC_partial_order___PartialOrder___select_smallests_2(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+  typedef void (*OC_partial_order___PartialOrder___select_smallests_2_t)(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+static const char * const LOCATE_partial_order___PartialOrder___add = "partial_order::PartialOrder::add";
 val_t partial_order___PartialOrder___add(val_t p0, val_t p1, val_t p2);
 typedef val_t (*partial_order___PartialOrder___add_t)(val_t p0, val_t p1, val_t p2);
-#define LOCATE_partial_order___PartialOrder___has_all "partial_order::PartialOrder::has_all"
+static const char * const LOCATE_partial_order___PartialOrder___has_all = "partial_order::PartialOrder::has_all";
 val_t partial_order___PartialOrder___has_all(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrder___has_all_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrder___new_poe "partial_order::PartialOrder::new_poe"
+  typedef void (*CLOS_OC_partial_order___PartialOrder___has_all_1_0)(struct stack_frame_t *);
+  void OC_partial_order___PartialOrder___has_all_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+  typedef void (*OC_partial_order___PartialOrder___has_all_1_t)(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+static const char * const LOCATE_partial_order___PartialOrder___new_poe = "partial_order::PartialOrder::new_poe";
 val_t partial_order___PartialOrder___new_poe(val_t p0, val_t p1, val_t p2);
 typedef val_t (*partial_order___PartialOrder___new_poe_t)(val_t p0, val_t p1, val_t p2);
-#define LOCATE_partial_order___PartialOrder___add_to_smallests "partial_order::PartialOrder::add_to_smallests"
+static const char * const LOCATE_partial_order___PartialOrder___add_to_smallests = "partial_order::PartialOrder::add_to_smallests";
 val_t partial_order___PartialOrder___add_to_smallests(val_t p0, val_t p1, val_t p2, val_t p3);
 typedef val_t (*partial_order___PartialOrder___add_to_smallests_t)(val_t p0, val_t p1, val_t p2, val_t p3);
-#define LOCATE_partial_order___PartialOrder___compute_smallers_for "partial_order::PartialOrder::compute_smallers_for"
+static const char * const LOCATE_partial_order___PartialOrder___compute_smallers_for = "partial_order::PartialOrder::compute_smallers_for";
 void partial_order___PartialOrder___compute_smallers_for(val_t p0, val_t p1, val_t p2);
 typedef void (*partial_order___PartialOrder___compute_smallers_for_t)(val_t p0, val_t p1, val_t p2);
-#define LOCATE_partial_order___PartialOrder___init "partial_order::PartialOrder::init"
+  typedef void (*CLOS_OC_partial_order___PartialOrder___compute_smallers_for_1_0)(struct stack_frame_t *);
+  void OC_partial_order___PartialOrder___compute_smallers_for_1(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+  typedef void (*OC_partial_order___PartialOrder___compute_smallers_for_1_t)(struct stack_frame_t *closctx, val_t p0, struct stack_frame_t *closctx_param, fun_t clos_fun0);
+static const char * const LOCATE_partial_order___PartialOrder___init = "partial_order::PartialOrder::init";
 void partial_order___PartialOrder___init(val_t p0, int* init_table);
 typedef void (*partial_order___PartialOrder___init_t)(val_t p0, int* init_table);
 val_t NEW_PartialOrder_partial_order___PartialOrder___init();
-#define LOCATE_partial_order___PartialOrderElement___order "partial_order::PartialOrderElement::order"
+static const char * const LOCATE_partial_order___PartialOrderElement___order = "partial_order::PartialOrderElement::order";
 val_t partial_order___PartialOrderElement___order(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___order_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___value "partial_order::PartialOrderElement::value"
+static const char * const LOCATE_partial_order___PartialOrderElement___value = "partial_order::PartialOrderElement::value";
 val_t partial_order___PartialOrderElement___value(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___value_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___rank "partial_order::PartialOrderElement::rank"
+static const char * const LOCATE_partial_order___PartialOrderElement___rank = "partial_order::PartialOrderElement::rank";
 val_t partial_order___PartialOrderElement___rank(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___rank_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___direct_greaters "partial_order::PartialOrderElement::direct_greaters"
+static const char * const LOCATE_partial_order___PartialOrderElement___direct_greaters = "partial_order::PartialOrderElement::direct_greaters";
 val_t partial_order___PartialOrderElement___direct_greaters(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___direct_greaters_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___direct_smallers "partial_order::PartialOrderElement::direct_smallers"
+static const char * const LOCATE_partial_order___PartialOrderElement___direct_smallers = "partial_order::PartialOrderElement::direct_smallers";
 val_t partial_order___PartialOrderElement___direct_smallers(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___direct_smallers_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___greaters "partial_order::PartialOrderElement::greaters"
+static const char * const LOCATE_partial_order___PartialOrderElement___greaters = "partial_order::PartialOrderElement::greaters";
 val_t partial_order___PartialOrderElement___greaters(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___greaters_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___greaters_and_self "partial_order::PartialOrderElement::greaters_and_self"
+static const char * const LOCATE_partial_order___PartialOrderElement___greaters_and_self = "partial_order::PartialOrderElement::greaters_and_self";
 val_t partial_order___PartialOrderElement___greaters_and_self(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___greaters_and_self_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___smallers "partial_order::PartialOrderElement::smallers"
+static const char * const LOCATE_partial_order___PartialOrderElement___smallers = "partial_order::PartialOrderElement::smallers";
 val_t partial_order___PartialOrderElement___smallers(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___smallers_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___linear_extension "partial_order::PartialOrderElement::linear_extension"
+static const char * const LOCATE_partial_order___PartialOrderElement___linear_extension = "partial_order::PartialOrderElement::linear_extension";
 val_t partial_order___PartialOrderElement___linear_extension(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___linear_extension_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement___reverse_linear_extension "partial_order::PartialOrderElement::reverse_linear_extension"
+static const char * const LOCATE_partial_order___PartialOrderElement___reverse_linear_extension = "partial_order::PartialOrderElement::reverse_linear_extension";
 val_t partial_order___PartialOrderElement___reverse_linear_extension(val_t p0);
 typedef val_t (*partial_order___PartialOrderElement___reverse_linear_extension_t)(val_t p0);
-#define LOCATE_partial_order___PartialOrderElement_____l "partial_order::PartialOrderElement::<"
+static const char * const LOCATE_partial_order___PartialOrderElement_____l = "partial_order::PartialOrderElement::<";
 val_t partial_order___PartialOrderElement_____l(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrderElement_____l_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrderElement_____leq "partial_order::PartialOrderElement::<="
+static const char * const LOCATE_partial_order___PartialOrderElement_____leq = "partial_order::PartialOrderElement::<=";
 val_t partial_order___PartialOrderElement_____leq(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrderElement_____leq_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrderElement_____g "partial_order::PartialOrderElement::>"
+static const char * const LOCATE_partial_order___PartialOrderElement_____g = "partial_order::PartialOrderElement::>";
 val_t partial_order___PartialOrderElement_____g(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrderElement_____g_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrderElement_____geq "partial_order::PartialOrderElement::>="
+static const char * const LOCATE_partial_order___PartialOrderElement_____geq = "partial_order::PartialOrderElement::>=";
 val_t partial_order___PartialOrderElement_____geq(val_t p0, val_t p1);
 typedef val_t (*partial_order___PartialOrderElement_____geq_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrderElement___register_direct_smallers "partial_order::PartialOrderElement::register_direct_smallers"
+static const char * const LOCATE_partial_order___PartialOrderElement___register_direct_smallers = "partial_order::PartialOrderElement::register_direct_smallers";
 void partial_order___PartialOrderElement___register_direct_smallers(val_t p0, val_t p1);
 typedef void (*partial_order___PartialOrderElement___register_direct_smallers_t)(val_t p0, val_t p1);
-#define LOCATE_partial_order___PartialOrderElement___init "partial_order::PartialOrderElement::init"
+static const char * const LOCATE_partial_order___PartialOrderElement___init = "partial_order::PartialOrderElement::init";
 void partial_order___PartialOrderElement___init(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table);
 typedef void (*partial_order___PartialOrderElement___init_t)(val_t p0, val_t p1, val_t p2, val_t p3, int* init_table);
+      void OC_partial_order___PartialOrderElement___init_1(struct stack_frame_t *closctx, val_t p0);
+      typedef void (*OC_partial_order___PartialOrderElement___init_1_t)(struct stack_frame_t *closctx, val_t p0);
 val_t NEW_PartialOrderElement_partial_order___PartialOrderElement___init(val_t p0, val_t p1, val_t p2);
 #endif