From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 9 Jan 2022 04:29:00 +0000 (-0800)
Subject: vm: setting current directory when launching Factor.app
X-Git-Tag: 0.99~1932
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=738552a909e3ad99ad88fe467b882445c44befea

vm: setting current directory when launching Factor.app
---

diff --git a/vm/os-macosx.mm b/vm/os-macosx.mm
index 6583ce8720..4f1944a90c 100644
--- a/vm/os-macosx.mm
+++ b/vm/os-macosx.mm
@@ -39,6 +39,9 @@ const char* default_image_path(void) {
   if ([path hasSuffix:@".app"] || [path hasSuffix:@".app/"]) {
     NSFileManager* mgr = [NSFileManager defaultManager];
 
+    NSString* root = [path stringByDeletingLastPathComponent];
+    [mgr changeCurrentDirectoryPath: root];
+
     NSString* imageInBundle =
         [[path stringByAppendingPathComponent:@"Contents/Resources"]
             stringByAppendingPathComponent:image];