From 7b375939be901cf2114916193da9f4b9864f0504 Mon Sep 17 00:00:00 2001
From: Elias Fleckenstein <eliasfleckenstein@web.de>
Date: Sat, 1 Jan 2022 19:42:10 +0100
Subject: Initial commit

---
 ref.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 ref.c

(limited to 'ref.c')

diff --git a/ref.c b/ref.c
new file mode 100644
index 0000000..0147160
--- /dev/null
+++ b/ref.c
@@ -0,0 +1,20 @@
+#include "common/err.h"
+#include "api/ref.h"
+#include "api/util.h"
+
+UwUVMValue uwu_call(UwUVMArgs *args)
+{
+	uwuutil_require_min("ref.call", args, 1);
+
+	UwUVMValue value = uwuvm_get_arg(args, 0);
+
+	if (value.type != &uwuref_type)
+		error("ref.call requires a function reference as $1\n");
+
+	return uwuvm_call_function(value.data, args->num - 1, &args->unevaluated[1], args->super);
+}
+
+UwUVMValue uwu_is(UwUVMArgs *args)
+{
+	return uwuutil_is_type("ref.is", args, &uwuref_type);
+}
-- 
cgit v1.2.3