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

Allowed path values in blame s-expressions.

Browse Source 
svn: r17708
This commit is contained in:
Carl Eastlund 2010-01-17 18:50:55 +00:00
parent 4e3874a1c5
commit 4d22b7a5f4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/contract/private/base.ss
View File

@ -71,7 +71,8 @@ improve method arity mismatch contract violation error messages?
(let loop ([seen #hasheq()] [x v]) (let loop ([seen #hasheq()] [x v])
(unless (or (null? x) (boolean? x) (number? x) (unless (or (null? x) (boolean? x) (number? x)
(string? x) (bytes? x) (regexp? x) (char? 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) (when (hash-has-key? seen x)
(error f-name (error f-name
"expected ~a to be acyclic; found a cycle in ~e at ~e" "expected ~a to be acyclic; found a cycle in ~e at ~e"