10 minutes ago, Robby Findler wrote:
> Does variable-reference->module-source use current-directory?
>
> If so, that'd explain this. (And either it would have to change or
> the handin-server/sandbox would have to.)
It looks like it does -- running the code below shows
>>> (find-system-path #f (exists))
>>> (find-system-path #f (exists))
But the security guard that the sandbox installs allows "pathless
queries" where the path is `#f'. Perhaps it's some code that uses the
resulting path? (But that would be the path of the module, which
should be allowed, not the current directory.)
This is the code I tried:
#lang racket
(define-namespace-anchor a)
(define ns (namespace-anchor->namespace a))
(parameterize ([current-security-guard
(make-security-guard
(current-security-guard)
(lambda (what path modes)
(eprintf ">>> ~s\n" `(,what ,path ,modes)))
void)])
(eval '(variable-reference->module-source (#%variable-reference))
ns))
--
((lambda (x) (x x)) (lambda (x) (x x))) Eli Barzilay:
http://barzilay.org/ Maze is Life!
____________________
Racket Users list:
http://lists.racket-lang.org/users
