From 8ce322801ab0a08f39c74c0bbbd994d34b9afba2 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 22 Feb 2014 22:30:09 +0000 Subject: [PATCH] Put back some temporary SEQUENCE-2 scaffolding. --- src/runtime/runtime.sf | 6 ++++++ src/runtime/utabs.scm | 7 +++++++ 2 files changed, 13 insertions(+) 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) -- 2.25.1