diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:04:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:04:11 +0200 |
| commit | 016eb6e0ba09535f4b4e8391372c5229aaae55ce (patch) | |
| tree | a00332d5193e311b64ebffa8986f2154e0688110 /module/vcomponent | |
| parent | Re-add timezone normalization for parsed datetimes. (diff) | |
| download | calp-016eb6e0ba09535f4b4e8391372c5229aaae55ce.tar.gz calp-016eb6e0ba09535f4b4e8391372c5229aaae55ce.tar.xz | |
Minor error cleanup in component.
Diffstat (limited to 'module/vcomponent')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index d1470694..b5fcbbe2 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -96,7 +96,7 @@ (lambda (params value) (let ((vv (parser params value))) (when (list? vv) - (error "")) + (throw 'parse-error "List in enum field")) (let ((v (string->symbol vv))) (unless (memv v enum) (warning "~a ∉ { ~{~a~^, ~} }" @@ -157,8 +157,8 @@ IN-PROCESS) #t)] - ;; TODO - [(memv key '(REQUEST-STATUS))] + [(memv key '(REQUEST-STATUS)) + (throw 'parse-error "TODO Implement REQUEST-STATUS")] [(memv key '(ACTION)) (enum-parser '(AUDIO DISPLAY EMAIL |