suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

byte zo reader to allow syntax objects within literal hash tables

Browse Source 
svn: r17867
This commit is contained in:
Matthew Flatt 2010-01-28 18:49:08 +00:00
parent 11c87c75e1
commit 43bf186d53
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/read.c
View File

@ -4705,6 +4705,8 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
break;
case CPT_STX:
{
Scheme_Hash_Table *save_ht;
if (!port->ut) {
Scheme_Unmarshal_Tables *ut;
Scheme_Hash_Table *rht;
@ -4725,8 +4727,8 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
port->ut->rns = rht;
}
if (*port->ht)
scheme_ill_formed_code(port);
save_ht = *port->ht;
*port->ht = NULL;
v = read_compact(port, 1);
@ -4738,6 +4740,8 @@ static Scheme_Object *read_compact(CPort *port, int use_stack)
0, 0);
}
*port->ht = save_ht;
v = scheme_unmarshal_datum_to_syntax(v, port->ut, 0);
scheme_num_read_syntax_objects++;
if (!v)