summaryrefslogtreecommitdiff
path: root/builtins.c
diff options
context:
space:
mode:
Diffstat (limited to 'builtins.c')
-rw-r--r--builtins.c3
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; \