Printing a hash table

[Heime]

Is this the way to fill a hash table and print the values.  

(defvar marshal-fpln (make-hash-table :test 'equal)
  "Hash table storing paths for different marshal components.")

(defun marshal-insert ()

  (puthash "MRSHL" marshal-waypt marshal-fpln)
  (puthash "NAPLN" (concat marshal-waypt "/poleon") marshal-fpln)
  (puthash "FLKTR" (concat rellana-waypt "/alkotr") marshal-fpln)
  (puthash "GLXKS" (concat rellana-waypt "/xiakos") marshal-fpln)
  (puthash "ARKTK" (concat rellana-waypt "/ritika") marshal-fpln) )

(defun torium-hash-table (hash-table &optional bfrn)
  "Print HASH-TABLE to the buffer BFRN."

  (let* ( (bfname (or bfrn "Torium Hash Table"))
          (dbuffer (get-buffer-create (concat "𒆳 " bfname))) )

    (with-current-buffer dbuffer
      (maphash (lambda (key value)
                 (let* ( (start (point)) )
                   (insert (format " ━ %-8s" key))
                   (insert (format "\n    %s\n" value))))
               hash-table))))

I am getting the following error and cannot figure out how I can get out of it.


Debugger entered--Lisp error: (wrong-type-argument hash-table-p (("MRSHL") 
("NAPLN") ("FLKTR") ("GLXKS") ("ARKTK" . t)))
  maphash((closure (t) (key value) (let* ((start (point))) (insert (format " ━ 
%-8s" key)) (add-text-properties start (point) '(face (:foreground "green"))) 
(insert (format "\n    %s\n" value)))) (("MRSHL") ("NAPLN") ("FLKTR") ("GLXKS") 
("ARKTK" . t)))
  (save-current-buffer (set-buffer dbuffer) (face-remap-add-relative 'default 
:background "blue") (insert "\n Hash Table \n\n") (maphash #'(lambda (key 
value) (let* ((start (point))) (insert (format " ━ %-8s" key)) 
(add-text-properties start (point) '(face ...)) (insert (format "\n    %s\n" 
value)))) hash-table))
  (let* ((bfname (or bfrn "Torium Hash Table")) (dbuffer (get-buffer-create 
(concat "𒆳 " bfname)))) (save-current-buffer (set-buffer dbuffer) 
(face-remap-add-relative 'default :background "blue") (insert "\n Hash Table 
\n\n") (maphash #'(lambda (key value) (let* ((start ...)) (insert (format " ━ 
%-8s" key)) (add-text-properties start (point) '...) (insert (format "\n    
%s\n" value)))) hash-table)))
  torium-hash-table((("MRSHL") ("NAPLN") ("FLKTR") ("GLXKS") ("ARKTK" . t)))