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

Improving xexpr error re Robby

Browse Source
This commit is contained in:
Jay McCarthy 2010-09-14 13:06:28 -06:00
parent 4a29ce914f
commit eb3d46cc0c
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/default-web-root/htdocs/error.css
View File

@ -17,6 +17,12 @@
}
.section > pre {
white-space: pre-wrap; /* css-3 */
white-space: -moz-pre-wrap; /* Mozilla, since 1999 */
white-space: -pre-wrap; /* Opera 4-6 */
white-space: -o-pre-wrap; /* Opera 7 */
word-wrap: break-word; /* Internet Explorer 5.5+ */
background-color: #ffccff;
margin-left: 5px;
margin-right: 5px;

8
collects/xml/private/xexpr.rkt
View File

@ -121,7 +121,7 @@
(true))
(false
(make-exn:invalid-xexpr
(format "Expected a pair, given ~s" attr)
(format "Expected an attribute pair, given ~s" attr)
(current-continuation-marks)
attr))))))
@ -134,15 +134,15 @@
(permissive-xexprs))
(true)
(false (make-exn:invalid-xexpr
(format "Expected a string, given ~s" (cadr attr))
(format "Expected an attribute value string, given ~v" (cadr attr))
(current-continuation-marks)
(cadr attr))))
(false (make-exn:invalid-xexpr
(format "Expected an attribute value string for attribute ~s" attr)
(format "Expected an attribute value string for attribute ~s, given nothing" attr)
(current-continuation-marks)
attr)))
(false (make-exn:invalid-xexpr
(format "Expected a symbol, given ~s" (car attr))
(format "Expected an attribute symbol, given ~s" (car attr))
(current-continuation-marks)
(cadr attr)))))