iYAP allows variables to be written as $VAR(-1) -> _

This commit is contained in:
Vítor Santos Costa 2011-02-15 18:24:35 +00:00
parent a40987b70d
commit 7b8a25d961

View File

@ -1086,6 +1086,16 @@ writeTerm2(term_t t, int prec, write_options *options, bool arg)
term_t arg = PL_new_term_ref();
_PL_get_arg(1, t, arg);
#if __YAP_PROLOG__
if ( PL_get_integer(arg, &n) && n == -1 )
{ char buf[16];
buf[0] = '_';
buf[1] = EOS;
return PutToken(buf, out);
}
#endif
if ( PL_get_integer(arg, &n) && n >= 0 )
{ int i = n % 26;
int j = n / 26;