Returning a single alist

[wilnerthomas]

The function `translate' ends up returning a list of alists.  What can I do to 
return just a single alist? 

(defconst assoc-table-1  '( ("gigantic" . "jgN") ("graphology" . "Gol")  
("phrenology" . "fnol") ))(defconst assoc-table-2  '( ("psychology" . "skol")  
("physiology" . "fsol") ("minerology" . "Mnol") ))
(defun translate ()  "TODO"  (let* ( (name "assoc-table-")      (list '())      
(counter 1) )    (while (boundp (intern (concat name (number-to-string 
counter))))      (setq list         (append list            (symbol-value 
(intern (concat name (number-to-string counter))))))            (setq counter 
(1+ counter)))    list))