don't crash strip_module

2014-02-09 18:07:17 +00:00 · 2014-02-09 18:07:17 +00:00 · a012017635
commit a012017635
parent e0642dbaa3
1 changed files with 2 additions and 6 deletions
--- a/C/modules.c
+++ b/C/modules.c
@ -299,15 +299,11 @@ Yap_StripModule(Term t,  Term *modp)
    }
  }
 restart:
-  if (IsVarTerm(t)) {
+  if (IsVarTerm(t) || !IsApplTerm(t)) {
    if (modp)
      *modp = tmod;
    return t;
-  } else if (IsAtomTerm(t) || IsPairTerm(t)) {
-    if (modp)
-      *modp = tmod;
-    return t;
-  } else if (IsApplTerm(t)) {
+  } else {
    Functor    fun = FunctorOfTerm(t);
    if (fun == FunctorModule) {
      Term t1 = ArgOfTerm(1, t);