From 254e63fc8c71357b14370e743d264f6b1b117108 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Thu, 18 Jun 2015 00:12:25 +0100 Subject: [PATCH] new flag design --- C/amasm.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C/amasm.c b/C/amasm.c index 9a34f1ab3..30267ca81 100755 --- a/C/amasm.c +++ b/C/amasm.c @@ -3872,7 +3872,7 @@ Yap_assemble(int mode, Term t, PredEntry *ap, int is_fact, struct intermediates cip->code_addr = (yamop *)cl; } else if (mode == ASSEMBLING_CLAUSE && (ap->PredFlags & SourcePredFlag || - yap_flags[SOURCE_MODE_FLAG]) && + trueGlobalPrologFlag(SOURCE_FLAG ) ) && !is_fact) { DBTerm *x; StaticClause *cl;