Not a valid directive, re issue #615

trealla-prolog · Oct 31, 2024 · 6037cd4 · 6037cd4
1 parent 20e1406
commit 6037cd4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/parser.c b/src/parser.c
@@ -597,6 +597,12 @@ static bool directives(parser *p, cell *d)
 	if (d->arity != 1)
 		return false;
 
+	if (is_list(c)) {
+		printf("WARNING: directive to load '%s' not allowed\n", C_STR(p, c+1));
+		p->error = true;
+		return false;
+	}
+
 	d->val_off = new_atom(p->pl, "$directive");
 	CLR_OP(d);
 
@@ -691,6 +697,7 @@ static bool directives(parser *p, cell *d)
 	}
 
 	if (!strcmp(dirname, "det") && (c->arity == 1)) {
+		printf("WARNING: %s\n", dirname);
 		return true;
 	}