From c6cf545263fd43259d0f40e3f972795f497854ee Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Fri, 29 May 1992 00:06:11 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/site.scm.dos | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos index 083a2b652..59cade918 100644 --- a/v7/src/runtime/site.scm.dos +++ b/v7/src/runtime/site.scm.dos @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.8 1992/05/28 23:46:53 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.9 1992/05/29 00:06:11 mhwu Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -56,6 +56,8 @@ MIT in each case. |# (fixed-objects-vector-slot 'SYSTEM-INTERRUPT-VECTOR)))) (vector-set! sv timer-slot typeahead-timer-interrupt)) +) ; End IN-PACKAGE + ;;; Normalization of various directory structures. (let ((add-directory-rewriting-rule! @@ -72,6 +74,4 @@ MIT in each case. |# (set-environment-variable! "MITSCHEME_INF_DIRECTORY" "c:/scheme"))))) (set-default-inf-directory!) - (add-event-receiver! event:after-restart set-default-inf-directory!)) - -) ; End IN-PACKAGE + (add-event-receiver! event:after-restart set-default-inf-directory!)) -- 2.25.1