From a6cc19648f617d16376b8209dfc167f1e5a9f655 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Nov 2018 06:34:42 -0700
Subject: [PATCH] cs: allow Racket framework to find itself not in "CS"

The installer-signing process can copy the framework to an application
directory that does not have "CS" in its name.
---
 racket/src/cs/c/boot.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cs/c/boot.c b/racket/src/cs/c/boot.c
index d0ff068de2..ffe8dea8dd 100644
--- a/racket/src/cs/c/boot.c
+++ b/racket/src/cs/c/boot.c
@@ -39,7 +39,7 @@ const char *get_framework_path() {
   for (i = 0; i < c; i++) {
     s = _dyld_get_image_name(i);
     len = strlen(s);
-    if ((len > 9) && !strcmp("CS/Racket", s + len - 9)) {
+    if ((len > 7) && !strcmp("/Racket", s + len - 7)) {
       char *s2;
       s2 = strdup(s);
       strcpy(s2 + len - 6, "boot");