shithub: pprolog

Download patch

ref: 8dd4f85c85aa9ab7a5f1219efd694e6707f2718c
parent: be26a1ce93e3ed24e57d2e0916f09252536994cb
author: Peter Mikkelsen <peter@pmikkelsen.com>
date: Fri Jul 2 13:55:18 EDT 2021

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; \