apparent typo in collection-search looks like error should be raise-a…

…rgument-error (#3285)
racket · Jul 8, 2020 · 39a8a50 · 39a8a50
1 parent 38d92bd
commit 39a8a50
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/pkgs/racket-test/tests/setup/collection-search.rkt b/pkgs/racket-test/tests/setup/collection-search.rkt
@@ -59,3 +59,7 @@
                      l))
       (when file
         (check-search-finds-one `(lib ,(~a coll "/" file)))))))
+
+(check-exn
+ #px"contract violation"
+ (λ () (collection-search 1234 #:combine list)))
diff --git a/racket/collects/setup/collection-search.rkt b/racket/collects/setup/collection-search.rkt
@@ -11,7 +11,7 @@
                            #:break? [break? (lambda (r) #f)]
                            #:all-possible-roots? [all-possible-roots? #f])
   (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 coll-str (car els))
   (define coll-sym (string->symbol coll-str))