Remove exception raising in period converter.
This commit is contained in:
parent
0dd4b6aed4
commit
dcbac91f55
1 changed files with 4 additions and 6 deletions
10
period.scm
10
period.scm
|
@ -82,12 +82,10 @@
|
|||
(loop (cdr l)
|
||||
ps
|
||||
month))
|
||||
(if (eq? (*member-file-check-syntax*) 'error)
|
||||
(error 'period-markers->periods "Invalid start/stop sequence marker" marker)
|
||||
(list #f
|
||||
(reverse ps)
|
||||
(sprintf "Invalid start/stop sequence marker ~A" marker)
|
||||
line-number)))))))
|
||||
(list #f
|
||||
(reverse ps)
|
||||
(sprintf "Invalid start/stop sequence marker ~A" marker)
|
||||
line-number))))))
|
||||
|
||||
;; Returns duration of period in months. Start is included, end is
|
||||
;; not. The period contains the month just before the specified end.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue