diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-20 00:53:48 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-20 00:53:48 +0000 |
commit | 131207a1f99f85d2b8d272e7b47b058076b5c1cf (patch) | |
tree | ccc59e6e5ce5197eecd70944a0f723f143edf031 /perl_checker.src/common.ml | |
parent | 659ced82c2465f81c3f14a1fa601d7df9ce2d2da (diff) | |
download | perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.gz perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.bz2 perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.tar.xz perl_checker-131207a1f99f85d2b8d272e7b47b058076b5c1cf.zip |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index 45e6ec1..c4600ff 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -186,6 +186,8 @@ let rec stack2list s = Stack.iter (fun e -> l := e :: !l) s ; !l +let rec queue2list q = rev (Queue.fold (fun b a -> a :: b) [] q) + let rec fix_point f p = let p' = f p in if p = p' then p else fix_point f p' |