projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3949455
)
Must load string code during build.
author
Chris Hanson
<org/chris-hanson/cph>
Wed, 22 Feb 2017 02:09:13 +0000
(18:09 -0800)
committer
Chris Hanson
<org/chris-hanson/cph>
Wed, 22 Feb 2017 02:09:13 +0000
(18:09 -0800)
src/edwin/edwin.sf
patch
|
blob
|
history
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