: program-jump-pos ( program -- program )
  dup [ code-pos>> ] [ jump-table>> ] bi nth >>code-pos ;