Fix Throw(What) macro

1 files changed, 1 insertions, 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; \