   displayed *before* the move rather than after. It is probably only useful
   for the first move of the game or the first move of a recursive annotation
   variation."
-  [game cmt & [node-id]]
+  [game cmt & {:keys [node-id]}]
   (add-key-value-pair game :pre-comment cmt node-id))
 
 

  "Like add-uci-move, but adds a sequence of moves rather than a single move. 
  This is faster than calling add-uci-move multiple times, because we don't
  have to unzip and zip the tree for each added move."
  [game uci-moves & [node-id]]
  (add-move-sequence game board/move-from-uci uci-moves
                     (or node-id (-> game :current-node :node-id))))


  "Adds a move in short algebraic notation to a game at a given node
  id. The move is added as the last child. If no node id is supplied,
  the current node of the game is used."
  [game san-move & {:keys [node-id]}]
  (add-move game board/move-from-san san-move
            (or node-id (-> game :current-node :node-id))))

