diff options
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/interp.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index b56bcc3c..d94dc4ce 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -229,7 +229,7 @@ let rec to_data_constructors (Defs defs) = (fun (Tu_aux t _) -> match t with | (Tu_ty_id x y) -> (y,x) - | Tu_id x -> (id,unit_t) end) tid_list)++(to_data_constructors (Defs defs)) + | Tu_id x -> (x,unit_t) end) tid_list)++(to_data_constructors (Defs defs)) | _ -> to_data_constructors (Defs defs) end | _ -> to_data_constructors (Defs defs) end end |