fixes problems with module browser when the file in the definitions w…

…indow isn't saved closes racket/racket#4889
racket · Jan 2, 2024 · 718c57b · 718c57b
1 parent 2166917
commit 718c57b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/drracket-tool-lib/drracket/private/standalone-module-browser.rkt b/drracket-tool-lib/drracket/private/standalone-module-browser.rkt
@@ -1237,6 +1237,7 @@
 
 (define (path->pkg-as-string filename path->pkg-cache)
   (cond
+    [(not filename) sc-unknown-pkg]
     [(path->pkg filename #:cache path->pkg-cache)
      => values]
     [(is-in-main-collects? filename)

diff --git a/drracket/drracket/private/module-browser.rkt b/drracket/drracket/private/module-browser.rkt
@@ -130,7 +130,7 @@
       (current-output-port (swallow-specials original-output-port))
       (current-error-port (swallow-specials original-error-port))
       (current-load-relative-directory #f)
-      (current-directory init-dir)
+      (when init-dir (current-directory init-dir))
       (error-display-handler (λ (str exn) 
                                (set! error-str str)
                                (when (exn? exn)