From d2ef26fe530b96d2384f8d7e76c22659600d0f8a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Jul 2013 22:25:20 +0000
Subject: 	* interp/sys-driver.boot (initializeGlobalState): Tell GCL not
 to 	use buggy fast links.

---
 src/interp/sys-driver.boot | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/interp')

diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index afb38544..b8d5ae81 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -191,6 +191,9 @@ loadDelayedFFI() ==
 ++ Initialize all global states that need to.  Sub-routine of the command
 ++ line compiler, the script executor, etc.  Mess with care.
 initializeGlobalState() ==
+)if %hasFeature KEYWORD::GCL
+  SYSTEM::USE_-FAST_-LINKS false
+)endif
   REROOT()
   init? := $StandardLinking or not %algebraSystemIsComplete()
 
-- 
cgit v1.2.3