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

From: Felix Klock's PLT scheme proxy (pltscheme at pnkfx.org)
Date: Sun Jul 18 20:50:46 EDT 2004


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)))


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)

Posted on the users mailing list.