--- a/translate.el	Sat Nov 10 19:42:22 2007 +0900
+++ b/translate.el	Sat Nov 10 20:38:15 2007 +0900
@@ -1,6 +1,16 @@
 (eval-when-compile (require 'cl))
 
 (defstruct Queue (front nil) (rear nil))
+
+(defvar lc-queue nil
+  "local command queue.")
+
+(defvar rc-queue nil
+  "remote command queue.")
+
+(defvar cmd-array nil
+  "")
+
 (setq lc-queue (make-Queue))
 (setq rc-queue (make-Queue))
 
@@ -11,9 +21,10 @@
 ;; return 0 or 1 or 2
 ;; cmd-array ¤Ç»È¤¤¤Þ¤¹¡£
 (defun random3 ()
-   (setq rd (random))
-   (setq rd (if (< rd 0) (* rd -1) rd ))
-   (setq rd (% rd 3)))
+  (let (rd)
+    (setq rd (random))
+    (setq rd (if (< rd 0) (* rd -1) rd ))
+    (setq rd (% rd 3))))
 
 ;; @param queue REPcommand queue
 ;; @param item  REPcommand
@@ -153,10 +164,9 @@
 ;; ¤Ã¤Æ´¶¤¸¤Ç¡¢queue ¤Î command ¤ò translate ¤¹¤ë¥Æ¥¹¥È¥ë¡¼¥Á¥ó
 (defun translate-test ()
   (interactive)
-  (setq num 0)
-  (while (< num 30)
-    (message (number-to-string (aref cmd-array (random3))))
-
+  (let (num Rcmd Lcmd)
+    (setq num 0)
+    (while (< num 30)
       (setq Rcmd (concat
 		  (redit-pack
 		   (aref cmd-array (random3)) 0 0 0 31 0)))
@@ -166,6 +176,6 @@
       (enqueue rc-queue Rcmd)
       (enqueue lc-queue Lcmd)
       (setq num (+ num 1)))
-  (while (> num 0)
-    (translate (dequeue rc-queue) (dequeue lc-queue))
-    (setq num (- num 1))))
\ No newline at end of file
+    (while (> num 0)
+      (translate (dequeue rc-queue) (dequeue lc-queue))
+      (setq num (- num 1)))))
\ No newline at end of file