improved the way the contract is written

2010-12-03 06:29:24 -06:00 · 2010-12-03 06:29:24 -06:00 · f8b2a9e0e2
commit f8b2a9e0e2
parent bc3bd77e19
1 changed files with 1 additions and 1 deletions
--- a/collects/setup/getinfo.rkt
+++ b/collects/setup/getinfo.rkt
@ -215,5 +215,5 @@
          [syms (listof symbol?)]))
 (find-relevant-directory-records
  (->* [(listof symbol?)]
-       [(lambda (x) (memq x '(preferred all-available)))]
+       [(or/c 'preferred 'all-available)]
       (listof directory-record?))))