strings are atomic!
This commit is contained in:
parent
30be57ed71
commit
3368c84696
2
.gitignore
vendored
2
.gitignore
vendored
@ -92,3 +92,5 @@ CMakeLists.txt.user.4d738ef
|
|||||||
CMakeLists.txt.user.c65360d
|
CMakeLists.txt.user.c65360d
|
||||||
|
|
||||||
C/pl-yap.c
|
C/pl-yap.c
|
||||||
|
|
||||||
|
CMakeLists.txt.user
|
||||||
|
@ -554,7 +554,7 @@ INLINE_ONLY inline EXTERN Int IsAtomicTerm (Term);
|
|||||||
INLINE_ONLY inline EXTERN Int
|
INLINE_ONLY inline EXTERN Int
|
||||||
IsAtomicTerm (Term t)
|
IsAtomicTerm (Term t)
|
||||||
{
|
{
|
||||||
return (Int) (IsAtomOrIntTerm (t) || IsLargeNumTerm (t));
|
return (Int) (IsAtomOrIntTerm (t) || IsLargeNumTerm (t) || IsStringTerm(t));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user