Type

(all (A B) (-> (pair-t A B) B void-t))

Description

Replace the second element of a pair.

Examples

(let ((p (make-pair 1 "hello")))
  (pair-put-second p "world")
  (pair-second p))  ;; => "world"