diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 17:57:06 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-21 17:57:06 +0200 |
| commit | 4204d25a2d277af1c16f55ee488e42c7b79bba1f (patch) | |
| tree | 81f62443a6466ca35719588836038c62f7ac3485 /libs/util.ml | |
| parent | 4d59f3a805d0cca882caab353ac8ec0dd4c04f73 (diff) | |
| download | SemVerif-Projet-4204d25a2d277af1c16f55ee488e42c7b79bba1f.tar.gz SemVerif-Projet-4204d25a2d277af1c16f55ee488e42c7b79bba1f.zip | |
All tests pass except one !
Diffstat (limited to 'libs/util.ml')
| -rw-r--r-- | libs/util.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libs/util.ml b/libs/util.ml index 68332b6..b1fcdc4 100644 --- a/libs/util.ml +++ b/libs/util.ml @@ -9,3 +9,12 @@ let rec fix f s = else fix f fs let (@@) f x = f x + +let print_list x l = + Format.printf "%s: " x; + let rec aux = function + | [] -> () + | [a] -> Format.printf "%s" a + | p::q -> Format.printf "%s, " p; aux q + in + Format.printf "["; aux l; Format.printf "]@."; |