modules

2019-04-08 13:16:21 +01:00
parent 1cde9d0eed
commit 9ea395c031
13 changed files with 204 additions and 102 deletions
--- a/C/modules.c
+++ b/C/modules.c
@@ -539,7 +539,8 @@ static Int current_source_module(USES_REGS1) {
    Yap_Error(TYPE_ERROR_ATOM, t, NULL);
    return false;
  }
-  LOCAL_SourceModule = t;
+  Yap_DebugPlWriteln(t);
+  LOCAL_SourceModule = CurrentModule = t;
  return true;
 }