From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 28 May 2013 02:07:19 +0000 (-0700)
Subject: Temporarily: inform older hosts about new type code SEQUENCE.
X-Git-Tag: release-9.2.0~182
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60e4405e5506e9bb9d3ceace2698bf339cf7ab4d;p=mit-scheme.git

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 5646d2aac..284f252ed 100644
--- 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")))