new meta-call scheme.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@751 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-01-29 14:47:17 +00:00
parent 0b17ff4174
commit 1369dfa410
24 changed files with 588 additions and 683 deletions
--- a/C/modules.c
+++ b/C/modules.c
@@ -105,7 +105,7 @@ p_module_number(void)
  Term t;
  if (IsVarTerm(tname)) {
    return(Yap_unify(tname, ModuleName[IntOfTerm(Deref(ARG2))]));
-  }else {
+  } else {
    t = MkIntTerm(LookupModule(Deref(ARG1)));
    Yap_unify(t,ARG2);
    ARG2 = t;