Fixed permissive/c, which I had ported to the wrong kind of contract.

svn: r17787
2010-01-23 21:33:06 +00:00 · 2010-01-23 21:33:06 +00:00 · a197b98706
commit a197b98706
parent ae54797717
1 changed files with 1 additions and 1 deletions
--- a/collects/xml/private/structures.ss
+++ b/collects/xml/private/structures.ss
@ -58,7 +58,7 @@
 (define permissive-xexprs (make-parameter #f))

 (define permissive/c
-  (simple-flat-contract
+  (simple-contract
   #:name 'permissive/c
   #:projection
   (lambda (blame)