- ; handle \times specially
- (let ((numerator (string-to-int (match-string 1)))
- (denominator (string-to-int (match-string 2))))
+ ; handle \times/\tuplet specially
+ (let* ((times-p (match-beginning 1))
+ (numerator (string-to-int (match-string (if times-p 2 3))))
+ (denominator (string-to-int (match-string (if times-p 3 2)))))