From 016eb6e0ba09535f4b4e8391372c5229aaae55ce Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 15 Jun 2020 19:04:11 +0200
Subject: Minor error cleanup in component.

---
 module/vcomponent/parse/component.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'module/vcomponent')

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
-- 
cgit v1.2.3