only for programs

svn: r17835
2010-01-26 15:04:51 +00:00 · 2010-01-26 15:04:51 +00:00 · 4cb01a48b3
commit 4cb01a48b3
parent be9d5787b4
1 changed files with 1 additions and 1 deletions
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@ -552,7 +552,7 @@
              [_else #f])])
    ;; the actual evaluation happens under the specified limits
    (parameterize ([current-load-relative-directory
-                    (let* ([d (syntax-source program)]
+                    (let* ([d (and (syntax? program) (syntax-source program))]
                           [d (and (path-string? d) (path-only d))])
                      (if (and d (directory-exists? d))
                        d