Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2016-04-20 23:21:15 -04:00
parent 40416364f8
commit 6a5713da36
1 changed files with 1 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
include/cyclone/types.h
View file

@ -91,10 +91,6 @@ enum object_tag {
// Define the size of object tags
typedef unsigned char tag_type;
// Temporary defines!
#define cons_tag 0
// END
/* Threading */
typedef enum { CYC_THREAD_STATE_NEW, CYC_THREAD_STATE_RUNNABLE,
CYC_THREAD_STATE_BLOCKED, CYC_THREAD_STATE_BLOCKED_COOPERATING,
@ -425,7 +421,6 @@ typedef struct {
object cons_cdr;
} pair_type;
typedef pair_type *list;
typedef pair_type cons_type;
typedef pair_type *pair;
#define make_pair(n,a,d) \
@ -435,13 +430,6 @@ typedef pair_type *pair;
n.tag = pair_tag; \
n.cons_car = a; \
n.cons_cdr = d;
#define make_cons(n,a,d) \
pair_type n; \
n.hdr.mark = gc_color_red; \
n.hdr.grayed = 0; \
n.tag = pair_tag; \
n.cons_car = a; \
n.cons_cdr = d;
#define make_cell(n,a) make_pair(n,a,NULL);
@ -536,7 +524,7 @@ static const object primitive_##name = &name##_primitive
/* All constant-size objects */
typedef union {
boolean_type boolean_t;
pair_type cons_t;
pair_type pair_t;
symbol_type symbol_t;
primitive_type primitive_t;
integer_type integer_t;