From dcbac91f55c658aa573906f4d2d76acb78b261b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 25 Mar 2023 20:24:21 +0100 Subject: [PATCH] Remove exception raising in period converter. --- period.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/period.scm b/period.scm index d51b943..d4cb55b 100644 --- a/period.scm +++ b/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.