From 7a48e046ad69c93f8e8c65cb044947d23f2cfb9a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 27 Jan 2020 15:33:05 -0500
Subject: [PATCH] Emit add_global2 calls

---
 scheme/cyclone/cgen.sld | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index c765049e..0737b157 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -2132,9 +2132,13 @@
     ;; Initialize global table
     (for-each
       (lambda (global)
-        (emits "\n  add_global((object *) &")
-        (emits (cgen:mangle-global (car global)))
-        (emits ");"))
+        (let ((mglo (cgen:mangle-global (car global))))
+          (emits (string-append
+                   "\n  add_global2(\""
+                   mglo
+                   "\", (object *) &"))
+          (emits mglo)
+          (emits ");")))
       *globals*)
     (emit "")