magic/vm-src/headers.h

#ifndef HEADERS_H
#define HEADERS_H

#include <assert.h>

#include "scm.h"

typedef enum {
  color_white = 0,
  color_black = 1,
} hdr_color;

scm make_header(hdr_color col, scm raw_size, scm scm_size);
scm header_color(scm hdr);
scm header_raw_size(scm hdr);
scm header_scm_size(scm hdr);
scm color_header(scm hdr, hdr_color col);

#endif