diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-14 20:03:21 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-14 20:03:21 +0000 |
commit | 355143d4b44031b4aeea1684cba1b31bb30c03ba (patch) | |
tree | ae16df4f78d20a8050258143e9dbb590e72ad472 /perl_checker.src/common.ml | |
parent | 5969b84ce3d36a4dd59e2459ec341b41413c0176 (diff) | |
download | perl_checker-355143d4b44031b4aeea1684cba1b31bb30c03ba.tar perl_checker-355143d4b44031b4aeea1684cba1b31bb30c03ba.tar.gz perl_checker-355143d4b44031b4aeea1684cba1b31bb30c03ba.tar.bz2 perl_checker-355143d4b44031b4aeea1684cba1b31bb30c03ba.tar.xz perl_checker-355143d4b44031b4aeea1684cba1b31bb30c03ba.zip |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index f600e01..45e6ec1 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -16,6 +16,11 @@ let id x = x let double a = a,a let swap (x,y) = (y,x) let safe_tl l = try tl l with _ -> [] +let fstfst ((e, _), _) = e +let sndfst ((_, e), _) = e +let fstsnd (_, (e, _)) = e +let sndsnd (_, (_, e)) = e + let o f g x = f (g x) let curry f x y = f (x,y) |