add-mark makes a new mark and the mark's current position is mark-sample. There are lots of examples in marks.scm.