From 2aff583fbff2813bcf3abf13a563b346b9a1c728 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Feb 2017 18:09:13 -0800
Subject: [PATCH] Must load string code during build.

---
 src/edwin/edwin.sf | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/edwin/edwin.sf b/src/edwin/edwin.sf
index df30b882e..b0ddb5f0c 100644
--- a/src/edwin/edwin.sf
+++ b/src/edwin/edwin.sf
@@ -32,6 +32,13 @@ USA.
 	  (cref/generate-trivial-constructor "edwin"))
       (construct-packages-from-file (fasload package-set))))
 
+(if (lexical-unreferenceable? (->environment '(EDWIN STRING))
+			      'STRING?)
+    (begin
+      (fluid-let ((sf/default-syntax-table (->environment '(EDWIN))))
+	(sf-conditionally "string"))
+      (load "string.bin" '(EDWIN STRING))))
+
 (if (lexical-unreferenceable? (->environment '(EDWIN CLASS-CONSTRUCTOR))
 			      'CLASS-DESCRIPTORS)
     (begin
-- 
2.25.1