From f65df039cff397d616831b8bd67fd5267d7d07ce Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 29 Oct 2019 23:20:40 +0100 Subject: [PATCH] M2: stack --- src/stack.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/stack.c b/src/stack.c index f9f5b6d8..d7062d9c 100644 --- a/src/stack.c +++ b/src/stack.c @@ -37,12 +37,11 @@ frame_printer (SCM frame) SCM make_frame_type () /*:((internal)) */ { - SCM record_type = cell_symbol_record_type; // FIXME SCM fields = cell_nil; fields = cons (cell_symbol_procedure, fields); fields = cons (fields, cell_nil); fields = cons (cell_symbol_frame, fields); - return make_struct (record_type, fields, cell_unspecified); + return make_struct (cell_symbol_record_type, fields, cell_unspecified); } SCM @@ -62,12 +61,11 @@ make_frame (SCM stack, long index) SCM make_stack_type () /*:((internal)) */ { - SCM record_type = cell_symbol_record_type; // FIXME SCM fields = cell_nil; fields = cons (cstring_to_symbol ("frames"), fields); fields = cons (fields, cell_nil); fields = cons (cell_symbol_stack, fields); - return make_struct (record_type, fields, cell_unspecified); + return make_struct (cell_symbol_record_type, fields, cell_unspecified); } SCM