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

apparent typo in collection-search looks like error should be raise-argument-error (#3285)

Browse Source
This commit is contained in:
John Clements 2020-07-08 11:16:22 -07:00 committed by GitHub
parent 38d92bdb30
commit 39a8a50d0a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test/tests/setup/collection-search.rkt
View File

@ -59,3 +59,7 @@
l)) l))
(when file (when file
(check-search-finds-one `(lib ,(~a coll "/" file))))))) (check-search-finds-one `(lib ,(~a coll "/" file)))))))
(check-exn
#px"contract violation"
(λ () (collection-search 1234 #:combine list)))

2
racket/collects/setup/collection-search.rkt
View File

@ -11,7 +11,7 @@
#:break? [break? (lambda (r) #f)] #:break? [break? (lambda (r) #f)]
#:all-possible-roots? [all-possible-roots? #f]) #:all-possible-roots? [all-possible-roots? #f])
(unless (normalized-lib-module-path? mp) (unless (normalized-lib-module-path? mp)
(error 'collection-search "normalized-lib-module-path?" mp)) (raise-argument-error 'collection-search "normalized-lib-module-path?" mp))
(define els (string-split (cadr mp) "/")) (define els (string-split (cadr mp) "/"))
(define coll-str (car els)) (define coll-str (car els))
(define coll-sym (string->symbol coll-str)) (define coll-sym (string->symbol coll-str))