From 6aaa0d44c0b0905d2ff24504a19d77ac749b8ea1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 10 Oct 2011 14:18:26 -0600 Subject: [PATCH] fix argument-error report Merge to 5.2 --- collects/racket/place.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/place.rkt b/collects/racket/place.rkt index 16a0bc650d..ec0f3c28b3 100644 --- a/collects/racket/place.rkt +++ b/collects/racket/place.rkt @@ -175,7 +175,7 @@ (unless (or (module-path? module-path) (path? module-path)) (raise-type-error who "module-path or path" module-path)) (unless (symbol? function) - (raise-type-error who "symbol" module-path)) + (raise-type-error who "symbol" function)) (unless (or (not in) (input-port? in)) (raise-type-error who "input-port or #f" in)) (unless (or (not out) (output-port? out))