-(defun cbeta-parse-horizontal (l-chr string simplify)
- (let ((ret (cbeta-parse-component string simplify))
+(defun cbeta-parse-horizontal (l-chr string simplify
+ robust strict-component)
+ (let ((ret (cbeta-parse-component
+ string simplify robust strict-component))