c-interface

This commit is contained in:
Vitor Santos Costa
2019-04-09 18:06:27 +01:00
parent 9ea395c031
commit fda10395b8
6 changed files with 35 additions and 62 deletions

View File

@@ -539,7 +539,6 @@ static Int current_source_module(USES_REGS1) {
Yap_Error(TYPE_ERROR_ATOM, t, NULL);
return false;
}
Yap_DebugPlWriteln(t);
LOCAL_SourceModule = CurrentModule = t;
return true;
}