I'm trying to create a simple sandbox evaluator (to load in programs in
*SL). I have the following code:
#lang racket
(require racket/sandbox)
(define E
(parameterize ([sandbox-path-permissions
'([write "/var/folders"]
[exists "/"]
[read "/"])]
)
(make-module-evaluator (string->path "test-file.rkt"))))
This works fine as long as test-file.rkt does *not* contain a comment box.
If the file contains a comment box, then the following error occurs:
/Applications/Racket
v6.1.1/share/pkgs/snip-lib/racket/snip/private/load-one.rkt:21:2:
dynamic-require: unknown module
module name: #<resolved-module-path:"/Applications/Racket
v6.1.1/share/pkgs/gui-lib/framework/main.rkt">
I thought maybe parameterizing sandbox-namespace-specs with 'framework
might do something:
(require racket/sandbox racket/gui)
(define E
(parameterize ([sandbox-path-permissions
'([write "/var/folders"]
[exists "/"]
[read "/"])]
[sandbox-namespace-specs
(list make-gui-namespace 'framework)]
)
(make-module-evaluator (string->path "lab01-insulin.rkt"))))
But it results in:
namespace-attach-module: a different instance of the same module is
already in the destination namespace
module name: "/Applications/Racket
v6.1.1/collects/racket/stxparam-exptime.rkt"
Any suggestions?
Thanks!
--- nadeem
____________________
Racket Users list:
http://lists.racket-lang.org/users
