From 5dc8e497315ba791c8a8de021f3d2d292566fb56 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 20 Sep 2008 12:20:13 +0200 Subject: Link ToiletKit with the SCM continuation support code. --- SCM/toilet-scm.c | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 SCM/toilet-scm.c (limited to 'SCM/toilet-scm.c') diff --git a/SCM/toilet-scm.c b/SCM/toilet-scm.c new file mode 100644 index 0000000..b3f2f12 --- /dev/null +++ b/SCM/toilet-scm.c @@ -0,0 +1,33 @@ +/* -*- mode: objc; coding: utf-8 -*- */ +/* Toilet Lisp, a Common Lisp subset for the Étoilé runtime. + * Copyright (C) 2008 Matthias Andreas Benkard. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include + +char s_call_cc[] = "call-with-current-continuation"; + +char *must_malloc (size_t len, const char *what) +{ + return (char *)malloc(len); +} + +void must_free (char *obj, size_t len) +{ + if (obj) + free(obj); +} -- cgit v1.2.3