From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Feb 2017 02:09:13 +0000 (-0800)
Subject: Must load string code during build.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~33
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2aff583fbff2813bcf3abf13a563b346b9a1c728;p=mit-scheme.git

Must load string code during build.
---

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