Remove more kludges now that 9.2 is out.

diff --git a/src/runtime/runtime.sf b/src/runtime/runtime.sf
index 29ef47faa505f5fcb0fe46917bc0582d98263012..70855cc122dddac39913fc84b577c665c6ef27d5 100644 (file)
--- a/src/runtime/runtime.sf
+++ b/src/runtime/runtime.sf
@@ -24,12 +24,6 @@ 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 59ef0aca79069251bfe3b79b8eadae08a42dea03..59753b2796a07379e8cecf37014259b1fa665892 100644 (file)
--- a/src/runtime/utabs.scm
+++ b/src/runtime/utabs.scm
@@ -69,12 +69,6 @@ USA.
   (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)