From 440062f5944056c272d032a00e12eddcecdd7e68 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 12 May 1992 18:42:40 +0000 Subject: [PATCH] Implemented conditional loading of files to make both DOS + Unix happy. Fixed typo. --- v7/src/edwin/edwin.ldr | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr index 2bf22d54f..0174e89fb 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.30 1992/05/12 18:18:34 mhwu Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.31 1992/05/12 18:42:40 mhwu Exp $ ;;; program to load package contents ;;; **** This program (unlike most .ldr files) is not generated by a program. @@ -107,7 +107,7 @@ (if (eq? (lookup 'os-type) 'unix) (load-option 'SUBPROCESS)) - (load-case 'os-type '((unix . "process") (dos "dosproc")) + (load-case 'os-type '((unix . "process") (dos . "dosproc")) (->environment '(EDWIN PROCESS))) (load "argred" (->environment '(EDWIN COMMAND-ARGUMENT))) -- 2.25.1