Temporarily: inform older hosts about new type code SEQUENCE.

Like d4d8ea1 this patch allows the released 9.1.1 (LIAR/C
distribution) to compile the compiler.  Without it, make-liarc-dist.sh
fails.  It seems the hack in d4d8ea1 is saved in a native
x-runtime.com but not in a LIAR/C-based x-runtime.com. ?

diff --git a/src/cref/make.scm b/src/cref/make.scm
index 5646d2aaccab3639d2859972c1905c1420eef925..284f252ed4fc2db4b89679c5b95ee0f755d58cdb 100644 (file)
--- a/src/cref/make.scm
+++ b/src/cref/make.scm
@@ -28,6 +28,14 @@ USA.
 
 (declare (usual-integrations))
 
+;; Temporarily: ensure host knows new type code SEQUENCE.  Older hosts
+;; have an equivalent SEQUENCE-2 and type-aliases.
+(if (not (microcode-type/name->code 'sequence))
+    (let ((env (->environment '(runtime microcode-tables))))
+      (set! (access type-aliases env)
+           (cons '(sequence-2 sequence)
+                 (access type-aliases env)))))
+
 (with-loader-base-uri (system-library-uri "cref/")
   (lambda ()
     (load-package-set "cref")))