From 3f09999d53ce88e62e943cc7dd11fa7979a5d399 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 26 Sep 2002 13:37:51 +0000
Subject: [PATCH] Remove unused code.

---
 src/c/read.d | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/src/c/read.d b/src/c/read.d
index 30ec9a3b8..611caac12 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -201,16 +201,6 @@ read_object_non_recursive(cl_object in)
 	return(x);
 }
 
-#if TK
-extern bool no_input;
-#define GETC(c, fp)	{ if (fp == stdin) \
-			   while (no_input) Tk_DoOneEvent(0); \
-			  c = getc(fp); \
-			  no_input = !FILE_CNT(fp); }
-#else
-#define GETC(c, fp)	c = getc(fp)
-#endif /* TK */
-
 /*
 	Read_object(in) reads an object from stream in.
 	This routine corresponds to COMMON Lisp function READ.