value print_ws (value v) { value ht_block = make_ht (); hash_table_t *ht = (hash_table_t *) Field(ht_block, 1); print_value (v, PASS1, ht); print_value (v, PASS2, ht); fflush(stdout); return Val_unit; }
Type* VariableType::get_tl() { if (tail == nullptr) make_ht(); return tail; }
Type* VariableType::get_hd() { if (head == nullptr) make_ht(); return head; }