Enforcing documentated contract

svn: r13307
2009-01-28 21:48:33 +00:00 · 2009-01-28 21:48:33 +00:00 · 8b65e2930d
commit 8b65e2930d
parent 60827a8254
1 changed files with 1 additions and 1 deletions
--- a/collects/xml/private/xexpr.ss
+++ b/collects/xml/private/xexpr.ss
@ -56,7 +56,7 @@
        (cond
          ((string? x) (true))
          ((symbol? x) (true))
-          ((number? x) (true))
+          ((exact-nonnegative-integer? x) (true))
          ((comment? x) (true))
          ((pi? x) (true))
          ((cdata? x) (true))