Merge branch 'master' into Gtk.
authorMatt Birkholz <matt@birchwood-abbey.net>
Fri, 24 Feb 2017 23:28:16 +0000 (16:28 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Fri, 24 Feb 2017 23:28:16 +0000 (16:28 -0700)
16 files changed:
1  2 
src/berkeley-db/berkeley-db.scm
src/edwin/decls.scm
src/edwin/editor.scm
src/edwin/edwin.ldr
src/edwin/edwin.pkg
src/edwin/edwin.sf
src/edwin/kilcom.scm
src/edwin/tterm.scm
src/pgsql/pgsql.scm
src/runtime/ed-ffi.scm
src/runtime/ffi.scm
src/runtime/load.scm
src/runtime/make.scm
src/runtime/runtime.pkg
src/runtime/version.scm
tests/check.scm

Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
index 36887a4c290db4294ddbb8df2bddffc255049ec4,b0ddb5f0ccf7dca5ddef7dd993f7f955a6290232..7cb405f8216aebf47376d2bf9376e5cc713e107d
@@@ -34,9 -29,16 +34,16 @@@ USA
  (if (not (name->package '(EDWIN)))
      (let ((package-set (package-set-pathname "edwin")))
        (if (not (file-exists? package-set))
 -        (cref/generate-trivial-constructor "edwin"))
 +        (cref/generate-trivial-constructor "edwin" #f))
        (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
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
Simple merge
diff --cc tests/check.scm
Simple merge