why this keybind does not work

["Chengqi(Lars) Song" <songcq gmail com>]

hi,

i want to map H-1/2/3/4/5 to switch to workspace 0/1/2/3/4. It works when I bind-key one by one. but why this piece of code does not work:

(mapc (lambda (ki)
        (let ((k (car ki))
              (i (cdr ki)))
          (bind-keys global-keymap (concat "H-" k) '(select-workspace-from-first i))
        '(("1" . 0)
          ("2" . 1)
          ("3" . 2)
          ("4" . 3)
          ("5" . 4)))

thanks
lars