Commit 04ede954 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2006-03-19 08:31:15 by afrisch] Empty log message

Original author: afrisch
Date: 2006-03-19 08:31:15+00:00
parent 4ad037e6
......@@ -238,7 +238,7 @@ let do_open (tenv,cenv,codes) loc path =
let rec collect_funs accu = function
| { descr = Ast.FunDecl e } :: rest -> collect_funs (e::accu) rest
| rest -> (accu,rest)
| rest -> (List.rev accu,rest)
let rec collect_types accu = function
| { descr = Ast.TypeDecl ((loc,x),t) } :: rest ->
......
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