home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Use helper functions for test status indicators
[tiger.ml.git]
/
compiler
/
src
/
lib
/
tiger
/
tiger_map_red_black.ml
diff --git
a/compiler/src/lib/tiger/tiger_map_red_black.ml
b/compiler/src/lib/tiger/tiger_map_red_black.ml
index
b339b52
..
30ba479
100644
(file)
--- a/
compiler/src/lib/tiger/tiger_map_red_black.ml
+++ b/
compiler/src/lib/tiger/tiger_map_red_black.ml
@@
-99,3
+99,6
@@
let to_dot t ~k_to_string =
)
in
"digraph G {" ^ dot_edges_and_nodes ^ "}"
+
+let of_list pairs =
+ List.fold_left pairs ~init:empty ~f:(fun t (k, v) -> set t ~k ~v)
This page took
0.028713 seconds
and
4
git commands to generate.