Clean up

diff --git a/vm/quotations.c b/vm/quotations.c
index 9d98fa7842ab28f9c1a0b5341fcf808021cfbacb..649aaf81898c7457b8e6a6485aca4853ff83906d 100755 (executable)
--- 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));