now we statically allocate closures for all top-level functions and all nullary constructors. closures are dynamically allocated only for CAFs. this reduces memory use and time to allocate dynamic closures

1 files changed, 6 insertions, 1 deletions

diff --git a/src/runtime/c/pgf/reader.c b/src/runtime/c/pgf/reader.c
index c65b8b057..2e8c154be 100644
--- a/src/runtime/c/pgf/reader.c
+++ b/src/runtime/c/pgf/reader.c
@@ -442,7 +442,12 @@ pgf_read_absfun(PgfReader* rdr, PgfAbstr* abstr)
 	switch (tag) {
 	case 0:
 		absfun->defns = NULL;
-		absfun->closure_id = 0;
+		if (absfun->arity == 0) {
+			absfun->closure.code = abstr->eval_gates->evaluate_value;
+			absfun->closure.con  = &absfun->closure.code;
+		} else {
+			absfun->closure.code = NULL;
+		}
 		break;
 	case 1: {
         GuLength length = pgf_read_len(rdr);