From 8dd4f85c85aa9ab7a5f1219efd694e6707f2718c Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Fri, 2 Jul 2021 17:55:18 +0000
Subject: Fix Throw(What) macro

---
 builtins.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/builtins.c b/builtins.c
index 0dabad0..ac2ef75 100644
--- 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; \
-- 
cgit v1.2.3