diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix disappearing syntax error

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-05-05 16:27:54 +01:00
parent 451a37d708
commit e981973d56
1 changed files with 1028 additions and 1027 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
os/pl-read.c
View File

@ -1113,7 +1113,8 @@ static const opt_spec read_clause_options[] =
static int static int
read_clause(IOSTREAM *s, term_t term, term_t options ARG_LD) read_clause(IOSTREAM *s, term_t term, term_t options ARG_LD)
{ read_data rd; {
read_data rd;
int rval; int rval;
fid_t fid; fid_t fid;
term_t tpos = 0; term_t tpos = 0;
@ -1196,6 +1197,7 @@ retry:
rval = PL_unify(opt_comments, comments); rval = PL_unify(opt_comments, comments);
else if ( !PL_get_nil(comments) ) else if ( !PL_get_nil(comments) )
callCommentHook(comments, tpos, term); callCommentHook(comments, tpos, term);
}
} else } else
{ if ( rd.has_exception && reportReadError(&rd) ) { if ( rd.has_exception && reportReadError(&rd) )
{ PL_rewind_foreign_frame(fid); { PL_rewind_foreign_frame(fid);
@ -1203,7 +1205,6 @@ retry:
goto retry; goto retry;
} }
} }
}
free_read_data(&rd); free_read_data(&rd);
return rval; return rval;