Must load string code during build.
authorChris Hanson <org/chris-hanson/cph>
Wed, 22 Feb 2017 02:09:13 +0000 (18:09 -0800)
committerChris Hanson <org/chris-hanson/cph>
Wed, 22 Feb 2017 02:09:13 +0000 (18:09 -0800)
src/edwin/edwin.sf

index df30b882e072402a8524fdc3eb83b87a6a1b202e..b0ddb5f0ccf7dca5ddef7dd993f7f955a6290232 100644 (file)
@@ -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