Adding another kind of error in xexpr

svn: r18677
2010-03-30 19:55:56 +00:00 · 2010-03-30 19:55:56 +00:00 · cafd092994
commit cafd092994
parent 7aedbc7d4c
1 changed files with 5 additions and 1 deletions
--- a/collects/web-server/private/xexpr.ss
+++ b/collects/web-server/private/xexpr.ss
@ -95,7 +95,11 @@
      l)]))

 (define (format-elements l)
-  (map format-xexpr l))
+  (if (list? l)
+      (map format-xexpr l)
+      (mark-error
+       "Expected a list of elements"
+       l)))

 (define (format-attributes l)
  (match l