suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding another kind of error in xexpr

Browse Source 
svn: r18677
This commit is contained in:
Jay McCarthy 2010-03-30 19:55:56 +00:00
parent 7aedbc7d4c
commit cafd092994
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/private/xexpr.ss
View File

@ -95,7 +95,11 @@
l)])) l)]))
(define (format-elements 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) (define (format-attributes l)
(match l (match l