From 60e4405e5506e9bb9d3ceace2698bf339cf7ab4d Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 27 May 2013 19:07:19 -0700 Subject: [PATCH] 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. ? --- src/cref/make.scm | 8 ++++++++ 1 file changed, 8 insertions(+) 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"))) -- 2.25.1