From fbcd41be397b9acb6dcabbd3a00e0a92ebddb048 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 12 Dec 2007 00:32:43 -0500 Subject: [PATCH] Clean up --- vm/quotations.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/vm/quotations.c b/vm/quotations.c index 9d98fa7842..649aaf8189 100755 --- a/vm/quotations.c +++ b/vm/quotations.c @@ -191,12 +191,13 @@ XT quot_offset_to_pc(F_QUOTATION *quot, F_FIXNUM offset) DEFINE_PRIMITIVE(curry) { - F_CURRY *curry = allot_object(CURRY_TYPE,sizeof(F_CURRY)); + F_CURRY *curry; switch(type_of(dpeek())) { case QUOTATION_TYPE: case CURRY_TYPE: + curry = allot_object(CURRY_TYPE,sizeof(F_CURRY)); curry->quot = dpop(); curry->obj = dpop(); dpush(tag_object(curry));