From 311a8f18e0dbdddf23f0c52c3a6da76926e556fb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 20 Nov 2002 00:53:48 +0000
Subject: *** empty log message ***

---
 perl_checker.src/common.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl_checker.src/common.ml')

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'
-- 
cgit v1.2.1