- (cond
- ;; ignore error recovery
- ((and ebnf-yac-ignore-error-recovery ebnf-yac-error)
- nil)
- ;; null sequence
- ((null seq)
- (ebnf-make-empty))
- ;; sequence with only one element
- ((= (length seq) 1)
- (car seq))
- ;; a real sequence
- (t
- (ebnf-make-sequence (nreverse seq)))
- ))))
+ (if (and ebnf-yac-ignore-error-recovery ebnf-yac-error)
+ ;; ignore error recovery
+ nil
+ (ebnf-token-sequence seq)))))