Commit 58322af1 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2006-04-25 15:56:21 by afrisch] Bug: type t = ([Int?] @ t)

Original author: afrisch
Date: 2006-04-25 15:56:21+00:00
parent 425130c8
......@@ -698,7 +698,7 @@ let deferr s = raise (Patterns.Error s)
(fun accu (t1,t2) -> mk_or accu (mk_prod (mk_type t1) (aux t2)))
(if Types.Atom.has_atom t Sequence.nil_atom then q else iempty)
(Types.Product.get t) in
n.desc <- d.desc;
n.desc <- ILink d;
n
in
aux t
......
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