diff options
| author | Kathy Gray | 2014-11-20 14:57:36 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-11-20 14:57:36 +0000 |
| commit | 8bcea7a8670de0c793fc51f2af1495fd09ff594c (patch) | |
| tree | cf21487275598224b44cc521968b905d1bff88d6 /src | |
| parent | 80beee7f6ffadb48b61d998e2daf73e952de5a00 (diff) | |
Handle constructors with zero parameters better.
Diffstat (limited to 'src')
| -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 |