Commit c1dbea39 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-06-02 20:39:11 by afrisch] Empty log message

Original author: afrisch
Date: 2005-06-02 20:39:11+00:00
parent 2357beb6
...@@ -706,5 +706,8 @@ open Ident ...@@ -706,5 +706,8 @@ open Ident
let get_ct c = let get_ct c =
match c.desc with match c.desc with
| ITimes ({ desc = IType (t,_) },content) -> (t,content) | ITimes (k,content) ->
(match (repr k).desc with
| IType (t,_) -> (t,content)
| _ -> assert false)
| _ -> assert false | _ -> assert false
Markdown is supported
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