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

Rohan-

You were so close!  You need to combine the two ideas together.

(module test mzscheme
      (require (lib "include.ss"))
      (include/reader "internal.ss"
                      (lambda l
                        (parameterize [(read-case-sensitive #t)]
                          (apply read-syntax l))))
      (provide (all-defined)))

-Felix


On Jul 18, 2004, at 8:25 PM, Rohan Drape wrote:

>   For list-related administrative tasks:
>   http://list.cs.brown.edu/mailman/listinfo/plt-scheme
>
> 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))
>
>

----
"They only reproduce when they interact. That's
  like men and women, kind of."  -G.C. Rota (11/26/97)