shithub: pprolog

Info  •  Files  •  Log

Fix Throw(What) macro

--- a/builtins.c

+++ b/builtins.c

@@ -7,9 +7,8 @@

 #define BuiltinProto(name) int name(Term *, Term *, Goal **, Choicepoint **, Binding **)

 #define Match(X, Y) (runestrcmp(name, X) == 0 && arity == Y)

 #define Throw(What) do{\

-	Term *t = mkcompound(L"throw", 1, What); \

 	Goal *g = malloc(sizeof(Goal)); \

-	g->goal = t; \

+	g->goal = What; \

 	g->catcher = nil; \

 	g->next = *goals; \

 	*goals = g; \