Put back some temporary SEQUENCE-2 scaffolding.

diff --git a/src/runtime/runtime.sf b/src/runtime/runtime.sf
index 07572f5ace1b733ca2d515b35374cb991a6668a4..0439d777203b659740301c037e48ce23d61eb559 100644 (file)
--- 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 002b261c4e35c6cde01e82e57285ba26cc62ccfb..2f48704c3c0f19935fdc35ee28496276cd66192e 100644 (file)
--- 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)