From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 22 Feb 2014 22:30:09 +0000 (+0000)
Subject: Put back some temporary SEQUENCE-2 scaffolding.
X-Git-Tag: release-9.2.0~43
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ce322801ab0a08f39c74c0bbbd994d34b9afba2;p=mit-scheme.git

Put back some temporary SEQUENCE-2 scaffolding.
---

diff --git a/src/runtime/runtime.sf b/src/runtime/runtime.sf
index 07572f5ac..0439d7772 100644
--- a/src/runtime/runtime.sf
+++ b/src/runtime/runtime.sf
@@ -24,6 +24,12 @@ USA.
 
 |#
 
+;; XXX Temporary kludge until we get 9.2 out.
+(if (not (microcode-type/name->code 'SEQUENCE))
+    (let ((environment (->environment '(RUNTIME MICROCODE-TABLES))))
+      (set! (access TYPE-ALIASES environment)
+            (cons '(SEQUENCE-2 SEQUENCE) (access TYPE-ALIASES environment)))))
+
 (load-option '*PARSER)			;for url.scm
 (fluid-let ((sf/default-syntax-table (->environment '(RUNTIME))))
   (sf-conditionally "char")
diff --git a/src/runtime/utabs.scm b/src/runtime/utabs.scm
index 002b261c4..2f48704c3 100644
--- a/src/runtime/utabs.scm
+++ b/src/runtime/utabs.scm
@@ -68,6 +68,13 @@ USA.
 	(microcode-identification-item 'CONSOLE-WIDTH))
   (set! microcode-id/tty-y-size
 	(microcode-identification-item 'CONSOLE-HEIGHT))
+
+  ;; XXX Temporary kludge until we get 9.2 out.
+  (if (not (microcode-type/name->code 'SEQUENCE))
+      (set! type-aliases (cons '(SEQUENCE-2 SEQUENCE) type-aliases)))
+  (if (not (microcode-return/name->code 'SEQUENCE-CONTINUE))
+      (set! returns-aliases
+	    (cons '(SEQUENCE-2-SECOND SEQUENCE-CONTINUE) returns-aliases)))
   unspecific)
 
 (define (intern string)