mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-03 07:51:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused code.

Browse source
This commit is contained in:
jjgarcia 2002-09-26 13:37:51 +00:00
parent 5c2adb9d9f
commit 3f09999d53
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/read.d
View file

@ -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.