current-load-relative-directory is now just set to #f

svn: r16115
This commit is contained in:
Robby Findler 2009-09-23 10:09:18 +00:00
parent 8f371c7bc2
commit d8c206531d

View File

@ -1491,8 +1491,7 @@ TODO
(current-rep this) (current-rep this)
(let ([dir (or (send context get-directory) (let ([dir (or (send context get-directory)
drscheme:init:first-dir)]) drscheme:init:first-dir)])
(current-directory dir) (current-directory dir))
(current-load-relative-directory dir))
(set! user-namespace-box (make-weak-box (current-namespace))) (set! user-namespace-box (make-weak-box (current-namespace)))