[plt-scheme] Literal file inclusion within a PLT module definition

Hello Felix,

Thanks for the pointer, it is exactly what I was looking for.

However I cannot work out how to make the inclusion case
sensitive.  There is a simple test case below.  If the definition
at internal.ss is written literally the module works, if it is
included it fails.

Setting (read-case-sensitive #t) does not seem to help.  Perhaps
I need to use include/reader with a 'read-syntax/case-sensitive'
procedure?  Is there such a thing?

Thanks in advance,
Rohan

__test.ss__

#cs(module test mzscheme
	   (require (lib "include.ss"))
	   (include "internal.ss")
	   (provide (all-defined)))

__internal.ss__

(define (Not a) (not a))