From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 2 Sep 1992 16:29:04 +0000 (+0000)
Subject: Remove timer interrupt hack.  This stuff is done directly by the
X-Git-Tag: 20090517-FFI~9007
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a8831ac18b46bd5f3e7657a8d99c354734847d6e;p=mit-scheme.git

Remove timer interrupt hack.  This stuff is done directly by the
microcode now.
---

diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos
index 59cade918..acf8446be 100644
--- a/v7/src/runtime/site.scm.dos
+++ b/v7/src/runtime/site.scm.dos
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$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 $
+$Id: site.scm.dos,v 1.10 1992/09/02 16:29:04 jinx Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -42,22 +42,6 @@ MIT in each case. |#
   (warn "call/cc: Invoking the C compiler:" args)
   (warn "Segmentation fault (core dumped)"))
 
-;;; Dos specific:
-;;; Timer hook to get interrupt keys
-
-(in-package (->environment '(runtime interrupt-handler))
-
-  (define (typeahead-timer-interrupt a b)
-    ((ucode-primitive consume-typeahead))
-    (timer-interrupt-handler a b))
-
-  (let ((sv (vector-ref
-	     (get-fixed-objects-vector)
-	     (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!