From 915c94038d30b50dd590df6e3de90fb4d62dc759 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 27 Aug 1992 06:35:16 +0000 Subject: [PATCH] Add direct BIOS driver for DOS version of Scheme. --- v7/src/edwin/edwin.ldr | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr index 88af7d217..86cb2eaff 100644 --- a/v7/src/edwin/edwin.ldr +++ b/v7/src/edwin/edwin.ldr @@ -1,5 +1,5 @@ ;;; -*-Scheme-*- -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.32 1992/05/26 16:08:50 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.33 1992/08/27 06:35:16 jinx Exp $ ;;; program to load package contents ;;; **** This program (unlike most .ldr files) is not generated by a program. @@ -79,8 +79,13 @@ (->environment '(EDWIN X-SCREEN))) (load-set-and-initialize! '("key") (->environment '(EDWIN KEYS))) - (load-set-and-initialize! '("termcap" "ansi" "tterm") - (->environment '(EDWIN CONSOLE-SCREEN))) + (let ((env (->environment '(EDWIN CONSOLE-SCREEN)))) + (load-set-and-initialize! '("termcap" "tterm") env) + (if (eq? (lookup 'os-type) 'dos) + (begin + (load "ansi" env) + (if (load "bios" env) + ((access bios-initialize-package! env)))))) (load "edtstr" environment) (load "editor" environment) (load "curren" environment) -- 2.25.1