0. #lang racket
1.  
2. (require (for-syntax racket/match))
3. (require (for-syntax racket/syntax))
4.  
5. (define-syntax (get-module syn)
6.   (match (syntax->list syn)
7.     ((list _ module without symbols ...)
8.      (datum->syntax
9.       syn
10.       `(require (except-in
11.                  ,module
12.                  ,symbols))))))
13.  
14. (get-module "www.rkt" without sym1 sym2 sym3)

=>

default-load-handler: cannot open module file

module path: #<path:/home/stchang/plt601/pkgs/web-server-p

kgs/web-server-lib/web-server/default-web-root/htdocs/www.rk

t>

path: /home/stchang/plt601/pkgs/web-server-pkgs/web-server

-lib/web-server/default-web-root/htdocs/www.rkt

system error: No such file or directory; errno=2