From 8f713b01c7a7f24d01e952bcad8d9547fb6de131 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Mon, 4 Apr 2011 16:23:14 +0100 Subject: [PATCH] allow accumulators. --- C/globals.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/C/globals.c b/C/globals.c index f5336117b..61afec71d 100644 --- a/C/globals.c +++ b/C/globals.c @@ -23,6 +23,7 @@ static char SccsId[] = "%W% %G%"; #include "YapHeap.h" #include "yapio.h" #include "iopreds.h" +#include "eval.h" #include "attvar.h" #include @@ -2576,6 +2577,9 @@ void Yap_InitGlobals(void) Yap_InitCPred("nb_beam_peek", 3, p_nb_beam_peek, SafePredFlag); Yap_InitCPred("nb_beam_empty", 1, p_nb_beam_empty, SafePredFlag); Yap_InitCPred("nb_beam_keys", 2, p_nb_beam_keys, 0L); + Yap_InitCPred("nb_create_accumulator", 2, p_nb_create_accumulator, 0L); + Yap_InitCPred("nb_add_to_accumulator", 2, p_nb_add_to_accumulator, 0L); + Yap_InitCPred("nb_accumulator_value", 2, p_nb_accumulator_value, 0L); #ifdef DEBUG Yap_InitCPred("nb_beam_check", 1, p_nb_beam_check, SafePredFlag); #endif