(read_escape) <\s>: Don't treat strings specially.
This commit is contained in:
parent
1d49d5d9e1
commit
010b7eace0
1 changed files with 5 additions and 6 deletions
11
src/lread.c
11
src/lread.c
|
@ -1738,13 +1738,12 @@ read_escape (readcharfun, stringp, byterep)
|
|||
return c | alt_modifier;
|
||||
|
||||
case 's':
|
||||
if (stringp)
|
||||
return ' ';
|
||||
c = READCHAR;
|
||||
if (c != '-') {
|
||||
UNREAD (c);
|
||||
return ' ';
|
||||
}
|
||||
if (c != '-')
|
||||
{
|
||||
UNREAD (c);
|
||||
return ' ';
|
||||
}
|
||||
c = READCHAR;
|
||||
if (c == '\\')
|
||||
c = read_escape (readcharfun, 0, byterep);
|
||||
|
|
Loading…
Add table
Reference in a new issue