eplace format

2011-02-14 14:13:45 -08:00
parent 52f8cb1041
commit 4dbdaaa772
12 changed files with 142 additions and 1022 deletions
--- a/C/modules.c
+++ b/C/modules.c
@@ -273,7 +273,7 @@ Yap_StripModule(Term t,  Term *modp)
 restart:
  if (IsVarTerm(t)) {
    return 0L;
-  } else if (IsAtomTerm(t)) {
+  } else if (IsAtomTerm(t) || IsPairTerm(t)) {
    *modp = tmod;
    return t;
  } else if (IsApplTerm(t)) {