re-seq.el

(defun re-seq (r s)
  (let ((l)
        (n 1)
        (break nil))
    (save-match-data
      (string-match r s)
      (while (null break)
        (if-let ((m (match-string n s)))
            (progn
              (push m l)
              (incf n))
          (setf break t))))
    (nreverse l)))

;(re-seq (rx (group (* alpha)) "-" (group (* alpha))) "hoge-fuga");; => ("hoge" "fuga")