* Added '\r' to the list of whitespace characters, as in the patch I found

on http://verno.ueda.info.waseda.ac.jp/network/patch-z .


git-svn-id: svn://svn.zoy.org/elk/trunk@195 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-26 12:17:33 +00:00
parent 421d32ec28
commit 1e16bd8dd3
1 changed files with 1 additions and 1 deletions

View File

@ -40,7 +40,7 @@ extern_c Object elk_import False2;
#define Print(x) General_Print_Object (x, Curr_Output_Port, 0)
#define Numeric(t) (t == T_Fixnum || t == T_Flonum || t == T_Bignum)
#define Whitespace(c) (c == ' ' || c == '\t' || c == '\014' || c == '\n')
#define Whitespace(c) (c == ' ' || c == '\t' || c == '\014' || c == '\n' || c == '\r')
#define Delimiter(c) (c == ';' || c == ')' || c == '(' || c == '"')