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 | d22a970196e532292d20dbaa5dc25ed5c35f6bc1 (patch) | |
tree | 88114434c6b9080a268f8bfe2f26e07939c05c7e /perl_checker.src/common.ml | |
parent | a4a7e80c8c89ae1e962a86ae14e2f1865f95d1f7 (diff) | |
download | perl-MDK-Common-d22a970196e532292d20dbaa5dc25ed5c35f6bc1.tar perl-MDK-Common-d22a970196e532292d20dbaa5dc25ed5c35f6bc1.tar.gz perl-MDK-Common-d22a970196e532292d20dbaa5dc25ed5c35f6bc1.tar.bz2 perl-MDK-Common-d22a970196e532292d20dbaa5dc25ed5c35f6bc1.tar.xz perl-MDK-Common-d22a970196e532292d20dbaa5dc25ed5c35f6bc1.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) |