Must load string code during build.

diff --git a/src/edwin/edwin.sf b/src/edwin/edwin.sf
index df30b882e072402a8524fdc3eb83b87a6a1b202e..b0ddb5f0ccf7dca5ddef7dd993f7f955a6290232 100644 (file)
--- 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