diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-17 22:15:59 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-28 14:17:47 +0200 |
| commit | d4667f94fbd2927e1c76a06567a92dedf1213e43 (patch) | |
| tree | 1db96f4ee662f2b221790318feaa48b66044aa82 /module/calp/html/view/calendar/shared.scm | |
| parent | Use catch* where appropriate (diff) | |
| download | calp-d4667f94fbd2927e1c76a06567a92dedf1213e43.tar.gz calp-d4667f94fbd2927e1c76a06567a92dedf1213e43.tar.xz | |
Remove assert.
Barely used, and almost always was better server by a propper error
call.
Diffstat (limited to 'module/calp/html/view/calendar/shared.scm')
| -rw-r--r-- | module/calp/html/view/calendar/shared.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm index 3e6ff105..e333dc4a 100644 --- a/module/calp/html/view/calendar/shared.scm +++ b/module/calp/html/view/calendar/shared.scm @@ -1,6 +1,5 @@ (define-module (calp html view calendar shared) :use-module (hnh util) - :use-module ((hnh util exceptions) :select (assert)) :use-module (srfi srfi-1) :use-module (vcomponent) :use-module ((vcomponent datetime) @@ -32,7 +31,10 @@ ;; only find events which also overlaps the ;; smaller event. - (assert event-length-key) + (unless event-length-key + (scm-error 'wrong-type-arg "fix-event-widths!" + "event-length-key is required" + #f #f)) ;; @var{x} is how for left in the container we are. (let inner ((x 0) |