Allowed path values in blame s-expressions.

svn: r17708
2010-01-17 18:50:55 +00:00 · 2010-01-17 18:50:55 +00:00 · 4d22b7a5f4
commit 4d22b7a5f4
parent 4e3874a1c5
1 changed files with 2 additions and 1 deletions
--- a/collects/scheme/contract/private/base.ss
+++ b/collects/scheme/contract/private/base.ss
@ -71,7 +71,8 @@ improve method arity mismatch contract violation error messages?
  (let loop ([seen #hasheq()] [x v])
    (unless (or (null? x) (boolean? x) (number? x)
                (string? x) (bytes? x) (regexp? x) (char? x)
-                (symbol? x) (keyword? x))
+                (symbol? x) (keyword? x)
+                (path? x))
      (when (hash-has-key? seen x)
        (error f-name
               "expected ~a to be acyclic; found a cycle in ~e at ~e"