From 66d69df014c9f05a95ed41b069d5af2b35127e4a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 7 Nov 2016 13:55:18 -0700 Subject: [PATCH] Remove more kludges now that 9.2 is out. --- src/runtime/runtime.sf | 6 ------ src/runtime/utabs.scm | 6 ------ 2 files changed, 12 deletions(-) diff --git a/src/runtime/runtime.sf b/src/runtime/runtime.sf index 29ef47faa..70855cc12 100644 --- 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 59ef0aca7..59753b279 100644 --- 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) -- 2.25.1