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

fix tab/1

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-06-07 10:29:46 +01:00
parent 8e5352bc03
commit 7278d9ee0e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
os/charsio.c
View File

@ -668,16 +668,16 @@ Outputs _N_ spaces to the current output stream.
*/ */
static Int tab_1(USES_REGS1) { /* nl */ static Int tab_1(USES_REGS1) { /* nl */
int sno = LOCAL_c_output_stream; int sno = LOCAL_c_output_stream;
Term t2; Term t1;
Int tabs, i; Int tabs, i;
if (IsVarTerm(t2 = Deref(ARG2))) { if (IsVarTerm(t1 = Deref(ARG1))) {
Yap_Error(INSTANTIATION_ERROR, t2, "put_char/1"); Yap_Error(INSTANTIATION_ERROR, t1, "first argument");
return FALSE; return FALSE;
} else if (!IsIntegerTerm(t2)) { } else if (!IsIntegerTerm(t1)) {
Yap_Error(TYPE_ERROR_INTEGER, t2, "put_char/1"); Yap_Error(TYPE_ERROR_INTEGER, t1, "first argument");
return FALSE; return FALSE;
} else if ((tabs = IntegerOfTerm(t2)) < 0) { } else if ((tabs = IntegerOfTerm(t1)) < 0) {
Yap_Error(DOMAIN_ERROR_OUT_OF_RANGE, t2, "tab/1"); Yap_Error(DOMAIN_ERROR_OUT_OF_RANGE, t1, "first argument");
return FALSE; return FALSE;
} }