From d69e40aa3a19d72c7d5d9d9a5863039a8828d2b3 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Fri, 9 Aug 2019 18:22:10 +0300
Subject: [PATCH] Delete unused C file

---
 c/opaque_type_template.c | 53 ----------------------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 c/opaque_type_template.c

diff --git a/c/opaque_type_template.c b/c/opaque_type_template.c
deleted file mode 100644
index 6fefa44..0000000
--- a/c/opaque_type_template.c
+++ /dev/null
@@ -1,53 +0,0 @@
-#include <stdlib.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <string.h>
-#include <assert.h>
-#include <sys/types.h>
-#include "llt.h"
-#include "flisp.h"
-
-// global replace TYPE with your type name to make your very own type!
-
-static value_t TYPEsym;
-static fltype_t *TYPEtype;
-
-void print_TYPE(value_t v, ios_t *f, int princ) {}
-
-void print_traverse_TYPE(value_t self) {}
-
-void free_TYPE(value_t self) {}
-
-void relocate_TYPE(value_t oldv, value_t newv) {}
-
-cvtable_t TYPE_vtable = { print_TYPE, relocate_TYPE, free_TYPE,
-                          print_traverse_TYPE };
-
-int isTYPE(value_t v)
-{
-    return iscvalue(v) && cv_class((cvalue_t *)ptr(v)) == TYPEtype;
-}
-
-value_t fl_TYPEp(value_t *args, uint32_t nargs)
-{
-    argcount("TYPE?", nargs, 1);
-    return isTYPE(args[0]) ? FL_T : FL_F;
-}
-
-static TYPE_t *toTYPE(value_t v, char *fname)
-{
-    if (!isTYPE(v))
-        type_error(fname, "TYPE", v);
-    return (TYPE_t *)cv_data((cvalue_t *)ptr(v));
-}
-
-static builtinspec_t TYPEfunc_info[] = { { "TYPE?", fl_TYPEp },
-                                         { NULL, NULL } };
-
-void TYPE_init()
-{
-    TYPEsym = symbol("TYPE");
-    TYPEtype =
-    define_opaque_type(TYPEsym, sizeof(TYPE_t), &TYPE_vtable, NULL);
-    assign_global_builtins(TYPEfunc_info);
-}