suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

only for programs

Browse Source 
svn: r17835
This commit is contained in:
Eli Barzilay 2010-01-26 15:04:51 +00:00
parent be9d5787b4
commit 4cb01a48b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/sandbox.ss
View File

@ -552,7 +552,7 @@
[_else #f])]) [_else #f])])
;; the actual evaluation happens under the specified limits ;; the actual evaluation happens under the specified limits
(parameterize ([current-load-relative-directory (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))]) [d (and (path-string? d) (path-only d))])
(if (and d (directory-exists? d)) (if (and d (directory-exists? d))
d d