fix dir separator for win32.

This commit is contained in:
U-WIN-ENP104VVO3U\Vítor Santos Costa 2011-03-22 11:07:17 +00:00
parent b9b107eaa9
commit b95b332f2b
1 changed files with 4 additions and 1 deletions

View File

@ -274,13 +274,16 @@ p_dir_sp ( USES_REGS1 )
{
#ifdef MAC
Term t = MkIntTerm(':');
Term t2 = MkIntTerm('/');
#elif ATARI || _MSC_VER || defined(__MINGW32__)
Term t = MkIntTerm('\\');
Term t2 = MkIntTerm('/');
#else
Term t = MkIntTerm('/');
Term t2 = MkIntTerm('/');
#endif
return(Yap_unify_constant(ARG1,t));
return Yap_unify_constant(ARG1,t) || Yap_unify_constant(ARG1,t2) ;
}