Commit fb94f8bd authored by John van Groningen's avatar John van Groningen
Browse files

remove unused cons_arg_vars and cons_index in .tcl file

parent 6e1234ef
...@@ -59,25 +59,18 @@ where ...@@ -59,25 +59,18 @@ where
instance WriteTypeInfo ConsDef instance WriteTypeInfo ConsDef
where where
write_type_info {cons_ident,cons_type,cons_priority,cons_number,cons_type_index,cons_exi_vars} tcl_file wtis=:{wtis_n_type_vars} write_type_info {cons_ident,cons_type,cons_type_index,cons_exi_vars} tcl_file wtis=:{wtis_n_type_vars}
// normalize ... // normalize ...
# (th_vars,wtis) # (th_vars,wtis)
= sel_type_var_heap wtis = sel_type_var_heap wtis
# (_,(_,th_vars)) # (_,(_,th_vars))
= mapSt normalize_type_var cons_exi_vars (wtis_n_type_vars,th_vars) = mapSt normalize_type_var cons_exi_vars (wtis_n_type_vars,th_vars)
# wtis # wtis = { wtis & wtis_type_heaps.th_vars = th_vars }
= { wtis & wtis_type_heaps.th_vars = th_vars }
// ... normalize // ... normalize
# (tcl_file,wtis) # (tcl_file,wtis)
= write_type_info cons_ident tcl_file wtis = write_type_info cons_ident tcl_file wtis
# (tcl_file,wtis) # (tcl_file,wtis)
= write_type_info cons_type tcl_file wtis = write_type_info cons_type tcl_file wtis
# tcl_file = fwritei 0 tcl_file // was cons_arg_vars, not used, write 0 for []
# (tcl_file,wtis)
= write_type_info cons_number tcl_file wtis
# (tcl_file,wtis) # (tcl_file,wtis)
= write_type_info cons_type_index tcl_file wtis = write_type_info cons_type_index tcl_file wtis
# (tcl_file,wtis) # (tcl_file,wtis)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment