From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 3 Sep 1992 07:40:47 +0000 (+0000)
Subject: Flush obsolete primitive.
X-Git-Tag: 20090517-FFI~9005
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4d0daa34de35660de0639d57baef729f7b63582;p=mit-scheme.git

Flush obsolete primitive.
---

diff --git a/v7/src/microcode/dosconio.c b/v7/src/microcode/dosconio.c
index 806891729..66d75d266 100644
--- a/v7/src/microcode/dosconio.c
+++ b/v7/src/microcode/dosconio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dosconio.c,v 1.2 1992/09/03 07:29:51 jinx Exp $
+$Id: dosconio.c,v 1.3 1992/09/03 07:40:47 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -314,14 +314,6 @@ DEFUN_VOID (get_typeahead_character)
   }
 }
 
-DEFINE_PRIMITIVE ("CONSUME-TYPEAHEAD", Prim_consume_typeahead, 0, 0,
-		  "Suck up DOS typeahead.")
-{
-  /* Obsolete -- done by microcode directly. */
-  PRIMITIVE_HEADER(0);
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
 DEFINE_PRIMITIVE ("DOS-HIGH-PRIORITY-TIMER-INTERRUPT", Prim_dos_high_priority_timer, 2, 2,
 		  "High-priority timer interrupt handler.")
 {