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

Error message typo.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-04-04 15:53:00 -04:00
parent 1d04ce2069
commit ad9de1f325
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/profile/sampler.rkt
View File

@ -72,7 +72,7 @@
[(list? t) (for-each loop t)] [(list? t) (for-each loop t)]
[(not (custodian? t)) [(not (custodian? t))
(raise-type-error (raise-type-error
who "thread, custodian, or a list of threads/csutodians" to-track)] who "thread, custodian, or a list of threads/custodians" to-track)]
;; test that it's subordinate ;; test that it's subordinate
[(with-handlers ([exn:fail:contract? (λ (_) #t)]) [(with-handlers ([exn:fail:contract? (λ (_) #t)])
(custodian-managed-list t super-cust) #f) (custodian-managed-list t super-cust) #f)