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

indenting

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-09-17 07:53:43 +01:00
parent 35e12bd9c4
commit 00d1bf9af4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
os/format.c
View File

@ -842,20 +842,24 @@ static Int doformat(volatile Term otail, volatile Term oargs,
if (targ > tnum - 1 || has_repeats) if (targ > tnum - 1 || has_repeats)
goto do_format_control_sequence_error; goto do_format_control_sequence_error;
t = targs[targ++]; t = targs[targ++];
{
yhandle_t sl0 = Yap_StartSlots(); yhandle_t sl0 = Yap_StartSlots();
Yap_plwrite(t, GLOBAL_Stream + sno, 0, Yap_plwrite(t, GLOBAL_Stream + sno, 0,
Handle_vars_f | Quote_illegal_f | To_heap_f, Handle_vars_f | Quote_illegal_f | To_heap_f,
GLOBAL_MaxPriority); GLOBAL_MaxPriority);
Yap_CloseSlots(sl0); Yap_CloseSlots(sl0);
}
break; break;
case 'w': case 'w':
if (targ > tnum - 1 || has_repeats) if (targ > tnum - 1 || has_repeats)
goto do_format_control_sequence_error; goto do_format_control_sequence_error;
t = targs[targ++]; t = targs[targ++];
{
yhandle_t slf = Yap_StartSlots(); yhandle_t slf = Yap_StartSlots();
Yap_plwrite(t, GLOBAL_Stream + sno, 0, Handle_vars_f | To_heap_f, Yap_plwrite(t, GLOBAL_Stream + sno, 0, Handle_vars_f | To_heap_f,
GLOBAL_MaxPriority); GLOBAL_MaxPriority);
Yap_CloseSlots(slf); Yap_CloseSlots(slf);
}
break; break;
case 'W': case 'W':
if (targ > tnum - 2 || has_repeats) if (targ > tnum - 2 || has_repeats)