AtomDouble was not defined correctly.

This commit is contained in:
Vítor Santos Costa 2010-02-19 14:16:57 +00:00
parent 1b66eba611
commit dddad72a0e
4 changed files with 4 additions and 3 deletions

View File

@ -499,7 +499,7 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
if (func == NULL) {
Yap_ErrorMessage = "Heap Overflow";
FAIL;
}
}
t = ParseTerm(oprprio, FailBuff);
t = Yap_MkApplTerm(func, 1, &t);
/* check for possible overflow against local stack */

View File

@ -63,6 +63,7 @@
AtomDBTerm = Yap_LookupAtom("db_term");
AtomDBref = Yap_FullLookupAtom("$dbref");
AtomDInteger = Yap_FullLookupAtom("$integer");
AtomDOUBLE = Yap_FullLookupAtom("Double");
AtomDec10 = Yap_LookupAtom("dec10");
AtomDefault = Yap_LookupAtom("default");
AtomDevNull = Yap_LookupAtom("/dev/null");

View File

@ -72,7 +72,7 @@ A DBReference N "db_reference"
A DBTerm N "db_term"
A DBref F "$dbref"
A DInteger F "$integer"
A DOUBLE A "Double"
A DOUBLE F "Double"
A Dec10 N "dec10"
A Default N "default"
A DevNull N "/dev/null"

@ -1 +1 @@
Subproject commit 9f80255cce18ee268792631aa1180e19a496346f
Subproject commit d9614e99dc98f8546fdc213c9e45003cf6efd520