[racket] setup sandbox eval with submodule

From: David Van Horn (dvanhorn at cs.umd.edu)
Date: Wed May 14 09:41:46 EDT 2014

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I'd like to create a sandbox evaluator that uses a language created in
a submodule.  So something like this:

#lang racket
(require racket/sandbox
         scribble/eval)

(module+ some-lang
  (provide (all-defined-out))
  (define #%top-interaction '...)
  (define #%module-begin '...))

(define ev
  (call-with-trusted-sandbox-configuration
   (lambda ()
     (parameterize ([sandbox-output 'string]
                    [sandbox-error-output 'string])
       (let ([the-eval (make-base-eval)])
         (the-eval `(require ???????))
         the-eval)))))

But I'm lost figuring out what to put for ??????? to make this work
out.  Is there a way to make this work?

Thanks,
David
-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.22 (Darwin)

iQIcBAEBAgAGBQJTc3KaAAoJEIVEqZR2RxA8MDQP/jSDd+PXgvXVp4PgH7ZGpOFy
sUijCZXk8CmqNfTB7gLRn/1B66yKCib3w5l/3gwGnfMixKN0Zk7IstJAWYAM8IeA
Hc57VD80mef/H+pwJvFI6Eac9q39TiD+JjT0EblM0b3M9LvrxVBnmBr7s+uO0RyB
g+wOLFXwFVAJkTJjFmyHL3YI7y5nMFeKSa95XapiMK4oS/6mVfV7n6RIgLkpwTFF
ylxxMRgWRyHe41HmgzObfjD0NXBvqKOxgkC4vRq+eR6EYWndN1Re56wePGl7Dx8N
QcQDlGMWtWW4Eed9RmjoUMtrmjln0JtxyX5yZK9X9snKVrRfQ0MwXNKNvoC90b0w
uzQzS7Ow1gT8adwYl0bmElZTL3AaIRrPl086NV3xH5xyA9WVWHlrMZORsqb+ZDCc
FQMEV+bNUwBLcSv4hpfVfPk/VOlfQM9Q61RGFcSYAWNg7aXzEgz37pYb5wAZ7uYg
KdUMbAqLnUcZySowIYv5iKTNjG7dy/XmboPlBXrp0bZwxdV3Rz1UDMAJPO/b1GIO
7zKVUTVL6U2S9qJ0a8rpCGpN1hcqZYlqQjf6Dpp9mvjljp+Mr3Bvnncco/wrgk4B
p7fXE5KlcGO4A4IAtjpZTL4Uj/YqFh0PfMNRhLP472RoH2nGWI6SKqp/ODAAh71V
9t47ns+G/SJi1e7XtIne
=Ndma
-----END PGP SIGNATURE-----

Posted on the users mailing list.