PasteRack.org
Paste # 27086
2014-10-19 15:30:14

Fork as a new paste.

Paste viewed 49 times.


Embed:

  1. #lang racket
  2.  
  3. (require (for-syntax racket/match))
  4. (require (for-syntax racket/syntax))
  5.  
  6. (define-syntax (get-module syn)
  7.   (syntax-case syn ()
  8.     ((_ module without symbols ...)
  9.      #'(require (except-in
  10.                  module
  11.                  symbols ...)))))
  12.  
  13. (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