From 330b262560af37142552b97849257eaeb5c50b50 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 20 May 2002 05:24:13 +0000
Subject: [PATCH] fix modules bug fix newly introduced coroutining bug

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@478 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/attvar.c  | 2 +-
 C/modules.c | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/C/attvar.c b/C/attvar.c
index f8ed5e672..8e639d56f 100644
--- a/C/attvar.c
+++ b/C/attvar.c
@@ -632,7 +632,7 @@ void InitAttVarPreds(void)
   InitCPred("inc_n_of_atts", 1, p_inc_atts, SafePredFlag);
   InitCPred("n_of_atts", 1, p_n_atts, SafePredFlag);
   InitCPred("bind_attvar", 1, p_bind_attvar, SafePredFlag);
-  InitCPred("$all_attvars", 1, p_all_attvars, SafePredFlag);
+  InitCPred("all_attvars", 1, p_all_attvars, SafePredFlag);
   InitCPred("$is_att_variable", 1, p_is_attvar, SafePredFlag);
 }
 
diff --git a/C/modules.c b/C/modules.c
index 8a62419f6..bff4bb4b4 100644
--- a/C/modules.c
+++ b/C/modules.c
@@ -118,8 +118,10 @@ InitModules(void)
 {
   ModuleName[PrimitivesModule = 0] =
     MkAtomTerm(LookupAtom("prolog"));
+  ModuleName[1] =
+    MkAtomTerm(LookupAtom("user"));
+  NoOfModules = 2;
   CurrentModule = 0;
-  ModuleName[1] = MkAtomTerm(LookupAtom("user"));
   InitCPred("$current_module", 2, p_current_module, SafePredFlag|SyncPredFlag);
   InitCPred("$current_module", 1, p_current_module1, SafePredFlag|SyncPredFlag);
   InitCPred("$change_module", 1, p_change_module, SafePredFlag|SyncPredFlag);