diff options
Diffstat (limited to 'otherlibs/labltk/compiler/tsort.ml')
| -rw-r--r-- | otherlibs/labltk/compiler/tsort.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/labltk/compiler/tsort.ml b/otherlibs/labltk/compiler/tsort.ml index 246eca2db..4f0d49692 100644 --- a/otherlibs/labltk/compiler/tsort.ml +++ b/otherlibs/labltk/compiler/tsort.ml @@ -62,13 +62,13 @@ let sort order = let q = Queue.create () and result = ref [] in List.iter !order - f:(function {pred_count = n} as node -> + fun:(function {pred_count = n} as node -> if n = 0 then Queue.add node q); begin try while true do let t = Queue.take q in result := t.node :: !result; - List.iter t.successors f: + List.iter t.successors fun: begin fun s -> let n = s.pred_count - 1 in s.pred_count <- n; @@ -78,7 +78,7 @@ let sort order = with Queue.Empty -> List.iter !order - f:(fun node -> if node.pred_count <> 0 + fun:(fun node -> if node.pred_count <> 0 then raise Cyclic) end; !result |